19 |
(define-module (ice-9 debugger) |
(define-module (ice-9 debugger) |
20 |
#:use-module (ice-9 debugger command-loop) |
#:use-module (ice-9 debugger command-loop) |
21 |
#:use-module (ice-9 debugger state) |
#:use-module (ice-9 debugger state) |
|
#:use-module (ice-9 debugger ui-client) |
|
22 |
#:use-module (ice-9 debugger utils) |
#:use-module (ice-9 debugger utils) |
23 |
#:use-module (ice-9 format) |
#:use-module (ice-9 format) |
24 |
|
#:use-module (emacs gds-client) |
25 |
#:export (debug-stack |
#:export (debug-stack |
26 |
debug |
debug |
27 |
debug-last-error |
debug-last-error |
121 |
(display "There is 1 frame on the stack.\n\n") |
(display "There is 1 frame on the stack.\n\n") |
122 |
(format #t "There are ~A frames on the stack.\n\n" ssize)))) |
(format #t "There are ~A frames on the stack.\n\n" ssize)))) |
123 |
(write-state-short state) |
(write-state-short state) |
124 |
(if (ui-connected?) |
(if (gds-connected?) |
125 |
(ui-command-loop state) |
(gds-command-loop state) |
126 |
(debugger-command-loop state))))))))) |
(debugger-command-loop state))))))))) |
127 |
|
|
128 |
(define (debug) |
(define (debug) |
163 |
(set! lazy-handler-dispatch |
(set! lazy-handler-dispatch |
164 |
(if syms |
(if syms |
165 |
(lambda (key . args) |
(lambda (key . args) |
166 |
(or (memq key syms) |
(if (memq key syms) |
167 |
(debug-stack (make-stack #t lazy-handler-dispatch) |
(begin |
168 |
#:with-introduction |
(debug-stack (make-stack #t lazy-handler-dispatch) |
169 |
#:continuable)) |
#:with-introduction |
170 |
|
#:continuable) |
171 |
|
(throw 'abort key))) |
172 |
(apply default-lazy-handler key args)) |
(apply default-lazy-handler key args)) |
173 |
default-lazy-handler))) |
default-lazy-handler))) |
174 |
|
|