mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

ui- to gds- change; debug-on-error fix.

Browse source
This commit is contained in:
Neil Jerram 2003-11-11 23:27:22 +00:00
parent 3273abd221
commit 30d90280a4
2 changed files with 14 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

5
ice-9/ChangeLog
View file

@ -1,5 +1,10 @@
2003-11-11 Neil Jerram <neil@ossau.uklinux.net> 2003-11-11 Neil Jerram <neil@ossau.uklinux.net>
* debugger.scm: Change ui-* calls to gds-*.
(debug-on-error): Debug if throw key is in specified syms, not if
it isn't! Also throw 'abort after debugging, so as to skip the
REPL's backtrace.
* debugger/behaviour.scm (*trap*): New variable, stores trap type. * debugger/behaviour.scm (*trap*): New variable, stores trap type.
(before-enter-frame-hook, before-apply-frame-hook, (before-enter-frame-hook, before-apply-frame-hook,
before-exit-frame-hook): Set here. before-exit-frame-hook): Set here.

16
ice-9/debugger.scm
View file

@ -19,9 +19,9 @@
(define-module (ice-9 debugger) (define-module (ice-9 debugger)
#:use-module (ice-9 debugger command-loop) #:use-module (ice-9 debugger command-loop)
#:use-module (ice-9 debugger state) #:use-module (ice-9 debugger state)
#:use-module (ice-9 debugger ui-client)
#:use-module (ice-9 debugger utils) #:use-module (ice-9 debugger utils)
#:use-module (ice-9 format) #:use-module (ice-9 format)
#:use-module (emacs gds-client)
#:export (debug-stack #:export (debug-stack
debug debug
debug-last-error debug-last-error
@ -121,8 +121,8 @@ Indicates that the debugger should display an introductory message.
(display "There is 1 frame on the stack.\n\n") (display "There is 1 frame on the stack.\n\n")
(format #t "There are ~A frames on the stack.\n\n" ssize)))) (format #t "There are ~A frames on the stack.\n\n" ssize))))
(write-state-short state) (write-state-short state)
(if (ui-connected?) (if (gds-connected?)
(ui-command-loop state) (gds-command-loop state)
(debugger-command-loop state))))))))) (debugger-command-loop state)))))))))
(define (debug) (define (debug)
@ -163,10 +163,12 @@ Indicates that the debugger should display an introductory message.
(set! lazy-handler-dispatch (set! lazy-handler-dispatch
(if syms (if syms
(lambda (key . args) (lambda (key . args)
(or (memq key syms) (if (memq key syms)
(debug-stack (make-stack #t lazy-handler-dispatch) (begin
#:with-introduction (debug-stack (make-stack #t lazy-handler-dispatch)
#:continuable)) #:with-introduction
#:continuable)
(throw 'abort key)))
(apply default-lazy-handler key args)) (apply default-lazy-handler key args))
default-lazy-handler))) default-lazy-handler)))