From 9447207f0c9a52d48b2de20b444405dfdd43d465 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Wed, 23 Nov 2011 12:40:33 +0100 Subject: Use default value for make-fluid in Scheme files * module/ice-9/boot-9.scm (%exception-handler) (%running-exception-handlers, read-eval?, *repl-stack*) (make-mutable-parameter): * module/ice-9/getopt-long.scm (%program-name): * module/language/elisp/runtime.scm (built-in-macro, defspecial): * module/srfi/srfi-39.scm (make-parameter/helper): * module/system/base/language.scm (*current-language*): * module/system/base/message.scm (*current-warning-port*): (*current-warning-prefix*): * module/system/base/target.scm (%target-type, %target-endianness) (%target-word-size): * module/texinfo/plain-text.scm (*indent*, *itemizer*): * benchmark-suite/lib.scm (prefix-fluid): * test-suite/lib.scm (prefix-fluid): Give fluids a useful default value. --- benchmark-suite/lib.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'benchmark-suite') 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)) -- cgit v1.2.1