summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-06-18 12:54:22 +0200
committerAndy Wingo <wingo@pobox.com>2010-06-18 12:54:22 +0200
commit352b99c43d9f6b04360d214109e54e309db036bd (patch)
treefbe2b6b412beef47133e5c0b30cb6ddda1b4fd37
parent8942e7a1d72ab6f6337f093a1653f57b6b6642ad (diff)
downloadguile-352b99c43d9f6b04360d214109e54e309db036bd.tar.gz
has-shown-debugger-hint? to scm-style-repl
* module/ice-9/boot-9.scm: * module/ice-9/scm-style-repl.scm (has-shown-debugger-hint?): Move to scm-style-repl.
-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))