summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--module/ice-9/boot-9.scm2
-rw-r--r--module/ice-9/scm-style-repl.scm2
2 files changed, 2 insertions, 2 deletions
diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 2f013c846..cb4b3555b 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -2711,8 +2711,6 @@ module '(ice-9 q) '(make-q q-length))}."
narrowing)))
(set! stack-saved? #t))))
-(define has-shown-debugger-hint? #f)
-
(define (handle-system-error key . args)
(let ((cep (current-error-port)))
(cond ((not (stack? (fluid-ref the-last-stack))))
diff --git a/module/ice-9/scm-style-repl.scm b/module/ice-9/scm-style-repl.scm
index 9210f2708..5ce8185ac 100644
--- a/module/ice-9/scm-style-repl.scm
+++ b/module/ice-9/scm-style-repl.scm
@@ -66,6 +66,8 @@
+(define has-shown-debugger-hint? #f)
+
(define (error-catching-loop thunk)
(let ((status #f)
(interactive #t))