suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix a bug in the debugger (PR 9710 & 9717)

Browse Source 
svn: r11509
This commit is contained in:
Greg Cooper 2008-09-01 19:15:57 +00:00
parent d8b6810fce
commit cdcf8881eb
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/gui-debugger/debug-tool.ss
View File

@ -547,10 +547,10 @@
(define/public (set-tab t) (set! tab t))
(define/private (stx-source->breakpoints src)
(send (send (if src (filename->defs src) this) get-tab) get-breakpoints))
(send (send (or (and src (filename->defs src)) this) get-tab) get-breakpoints))
(define/private (stx-source->pos-vec src)
(send (send (if src (filename->defs src) this) get-tab) get-pos-vec))
(send (send (or (and src (filename->defs src)) this) get-tab) get-pos-vec))
;; make-debug-eval-handler : (sexp -> value) -> sexp -> value
;; adds debugging information to `sexp' and calls `oe'