[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.1-50-g0a6506
From: |
Andy Wingo |
Subject: |
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.1-50-g0a65067 |
Date: |
Sun, 08 May 2011 15:38:40 +0000 |
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".
http://git.savannah.gnu.org/cgit/guile.git/commit/?id=0a6506781ac1082d370b8359199a9d20eda74057
The branch, stable-2.0 has been updated
via 0a6506781ac1082d370b8359199a9d20eda74057 (commit)
from 012062a0d61cbd297dd58c8168433518c8b450cc (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit 0a6506781ac1082d370b8359199a9d20eda74057
Author: Andy Wingo <address@hidden>
Date: Sun May 8 17:27:41 2011 +0200
add map and for-each benchmarks
* benchmark-suite/benchmarks/srfi-1.bm ("map", "for-each"): Add
benchmarks.
-----------------------------------------------------------------------
Summary of changes:
benchmark-suite/benchmarks/srfi-1.bm | 19 ++++++++++++++++++-
1 files changed, 18 insertions(+), 1 deletions(-)
diff --git a/benchmark-suite/benchmarks/srfi-1.bm
b/benchmark-suite/benchmarks/srfi-1.bm
index 835608d..67f79ca 100644
--- a/benchmark-suite/benchmarks/srfi-1.bm
+++ b/benchmark-suite/benchmarks/srfi-1.bm
@@ -1,7 +1,7 @@
;;; -*- mode: scheme; coding: utf-8; -*-
;;; SRFI-1.
;;;
-;;; Copyright 2010 Free Software Foundation, Inc.
+;;; Copyright 2010, 2011 Free Software Foundation, Inc.
;;;
;;; This program is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU Lesser General Public License
@@ -45,3 +45,20 @@
(benchmark "small" 2000000
(drop-while (lambda (n) #t) %small-list)))
+
+(with-benchmark-prefix "map"
+
+ (benchmark "big" 30
+ (map (lambda (x) x) %big-list))
+
+ (benchmark "small" 2000000
+ (map (lambda (x) x) %small-list)))
+
+(with-benchmark-prefix "for-each"
+
+ (benchmark "big" 30
+ (for-each (lambda (x) #f) %big-list))
+
+ (benchmark "small" 2000000
+ (for-each (lambda (x) #f) %small-list)))
+
hooks/post-receive
--
GNU Guile
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.1-50-g0a65067,
Andy Wingo <=