diff options
Diffstat (limited to 'benchmark-suite/lib.scm')
-rw-r--r-- | benchmark-suite/lib.scm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/benchmark-suite/lib.scm b/benchmark-suite/lib.scm index a6feed818..4ba0e3e1c 100644 --- a/benchmark-suite/lib.scm +++ b/benchmark-suite/lib.scm @@ -1,5 +1,5 @@ ;;;; 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 @@ -348,8 +348,7 @@ (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)) |