summaryrefslogtreecommitdiff
path: root/ice-9/debugging/ice-9-debugger-extensions.scm
diff options
context:
space:
mode:
Diffstat (limited to 'ice-9/debugging/ice-9-debugger-extensions.scm')
-rw-r--r--ice-9/debugging/ice-9-debugger-extensions.scm7
1 files changed, 6 insertions, 1 deletions
diff --git a/ice-9/debugging/ice-9-debugger-extensions.scm b/ice-9/debugging/ice-9-debugger-extensions.scm
index 217d935b9..2770c1f73 100644
--- a/ice-9/debugging/ice-9-debugger-extensions.scm
+++ b/ice-9/debugging/ice-9-debugger-extensions.scm
@@ -121,6 +121,11 @@ print the result obtained."
(define *not-yet-introduced* #t)
+(cond ((string>=? (version) "1.7"))
+ (else
+ (define (debugger-command-loop state)
+ (read-and-dispatch-commands state (current-input-port)))))
+
(define-public (debug-trap trap-context)
"Invoke the Guile debugger to explore the stack at the specified @var{trap}."
(start-stack 'debugger
@@ -144,7 +149,7 @@ print the result obtained."
(display "There is 1 frame on the stack.\n\n")
(format #t "There are ~A frames on the stack.\n\n" ssize))))
(write-state-short-with-source-location state)
- (read-and-dispatch-commands state (current-input-port)))))
+ (debugger-command-loop state))))
(define write-state-short-with-source-location
(cond ((string>=? (version) "1.7")