HCoop
/
bpt
/
guile.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Use default value for make-fluid in Scheme files
[bpt/guile.git]
/
benchmark-suite
/
lib.scm
diff --git
a/benchmark-suite/lib.scm
b/benchmark-suite/lib.scm
index
a6feed8
..
4ba0e3e
100644
(file)
--- a/
benchmark-suite/lib.scm
+++ b/
benchmark-suite/lib.scm
@@
-1,5
+1,5
@@
;;;; benchmark-suite/lib.scm --- generic support for benchmarking
;;;; benchmark-suite/lib.scm --- generic support for benchmarking
-;;;; Copyright (C) 2002, 2006 Free Software Foundation, Inc.
+;;;; Copyright (C) 2002, 2006
, 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
;;;;
;;;; This program is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
@@
-348,8
+348,7
@@
(append (current-benchmark-prefix) (list name)))
;;; A fluid containing the current benchmark prefix, as a list.
(append (current-benchmark-prefix) (list name)))
;;; A fluid containing the current benchmark prefix, as a list.
-(define prefix-fluid (make-fluid))
-(fluid-set! prefix-fluid '())
+(define prefix-fluid (make-fluid '()))
(define (current-benchmark-prefix)
(fluid-ref prefix-fluid))
(define (current-benchmark-prefix)
(fluid-ref prefix-fluid))