/[guile]/guile/guile-core/ice-9/debugger.scm
ViewVC logotype

Diff of /guile/guile-core/ice-9/debugger.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.17 by ossau, Thu Oct 16 11:53:58 2003 UTC revision 1.18 by ossau, Tue Nov 11 23:27:21 2003 UTC
# Line 19  Line 19 
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
# Line 121  Indicates that the debugger should displ Line 121  Indicates that the debugger should displ
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)
# Line 163  Indicates that the debugger should displ Line 163  Indicates that the debugger should displ
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    

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26