diff options
author | Andy Wingo <wingo@pobox.com> | 2010-06-18 12:54:22 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-06-18 12:54:22 +0200 |
commit | 352b99c43d9f6b04360d214109e54e309db036bd (patch) | |
tree | fbe2b6b412beef47133e5c0b30cb6ddda1b4fd37 | |
parent | 8942e7a1d72ab6f6337f093a1653f57b6b6642ad (diff) | |
download | guile-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.scm | 2 | ||||
-rw-r--r-- | module/ice-9/scm-style-repl.scm | 2 |
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)) |