48 |
debugger-command-loop-quit) |
debugger-command-loop-quit) |
49 |
#:no-backtrace) |
#:no-backtrace) |
50 |
|
|
|
(if (memq 'readline *features*) |
|
|
(define-module (ice-9 debugger command-loop) |
|
|
:use-module (ice-9 readline))) |
|
|
|
|
51 |
;;; {Interface used by (ice-9 debugger).} |
;;; {Interface used by (ice-9 debugger).} |
52 |
|
|
53 |
(define (debugger-command-loop state) |
(define (debugger-command-loop state) |
89 |
(lambda args |
(lambda args |
90 |
*unspecified*))) |
*unspecified*))) |
91 |
|
|
92 |
|
(define set-readline-prompt! #f) |
93 |
|
|
94 |
(define (read-and-dispatch-command state port) |
(define (read-and-dispatch-command state port) |
95 |
(if (using-readline?) |
(if (using-readline?) |
96 |
(set-readline-prompt! debugger-prompt debugger-prompt) |
(begin |
97 |
|
;; Import set-readline-prompt! if we haven't already. |
98 |
|
(or set-readline-prompt! |
99 |
|
(set! set-readline-prompt! |
100 |
|
(module-ref (resolve-module '(ice-9 readline)) |
101 |
|
'set-readline-prompt!))) |
102 |
|
(set-readline-prompt! debugger-prompt debugger-prompt)) |
103 |
(display debugger-prompt)) |
(display debugger-prompt)) |
104 |
(force-output) ;This should not be necessary... |
(force-output) ;This should not be necessary... |
105 |
(let ((token (read-token port))) |
(let ((token (read-token port))) |