tweak to ensure-batch-mode!

* module/ice-9/boot-9.scm (ensure-batch-mode!): Fix to be correct
  regarding dynamic extent (so far as this hack goes).

diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index bd5625d..c735816 100644 (file)
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -2698,7 +2698,7 @@ module '(ice-9 q) '(make-q q-length))}."
 ;; to abort to the outermost prompt, and call a thunk there.
 ;;
 (define (ensure-batch-mode!)
-  (fluid-set! *repl-level* #f))
+  (set! batch-mode? (lambda () #t)))
 
 (define (quit . args)
   (apply throw 'quit args))