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

svn: r11509
This commit is contained in:
Greg Cooper 2008-09-01 19:15:57 +00:00
parent d8b6810fce
commit cdcf8881eb

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'