summaryrefslogtreecommitdiff
path: root/module/texinfo/plain-text.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/texinfo/plain-text.scm')
-rw-r--r--module/texinfo/plain-text.scm10
1 files changed, 3 insertions, 7 deletions
diff --git a/module/texinfo/plain-text.scm b/module/texinfo/plain-text.scm
index 93a7c1d99..87e43e5bb 100644
--- a/module/texinfo/plain-text.scm
+++ b/module/texinfo/plain-text.scm
@@ -1,6 +1,6 @@
;;;; (texinfo plain-text) -- rendering stexinfo as plain text
;;;;
-;;;; Copyright (C) 2009, 2010 Free Software Foundation, Inc.
+;;;; Copyright (C) 2009, 2010, 2011 Free Software Foundation, Inc.
;;;; Copyright (C) 2003,2004,2009 Andy Wingo <wingo at pobox dot com>
;;;;
;;;; This library is free software; you can redistribute it and/or
@@ -41,9 +41,6 @@
(or (arg-ref key %-args)
(error "Missing argument:" key %-args)))
-(define *indent* (make-fluid))
-(define *itemizer* (make-fluid))
-
(define (make-ticker str)
(lambda () str))
(define (make-enumerator n)
@@ -52,9 +49,8 @@
(set! n (1+ n))
(format #f "~A. " last))))
-(fluid-set! *indent* "")
-;; Shouldn't be necessary to do this, but just in case.
-(fluid-set! *itemizer* (make-ticker "* "))
+(define *indent* (make-fluid ""))
+(define *itemizer* (make-fluid (make-ticker "* ")))
(define-macro (with-indent n . body)
`(with-fluids ((*indent* (string-append (fluid-ref *indent*)