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

fix debugger for the case when it decides not to annotate a file

Browse Source 
related to PR 12937

This doesn't seem to fix the PR since the debugger is currently ignoring
the TR programs (not annotating them) but at least it does not crash now

Please merge to 5.3
This commit is contained in:
Robby Findler 2012-07-24 04:03:49 -05:00
parent 6e2fc2c138
commit fadd1d9714
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/gui-debugger/debug-tool.rkt
View File

@ -634,9 +634,12 @@
(let ([src (syntax-source orig-exp)])
(and (path? src)
src))))
(when (or (eq? (filename->defs fn) (send (get-tab) get-defs))
(annotate-this-module? fn))
(parameterize ([current-eval oe])
(cond
[(or (eq? (filename->defs (and (syntax? orig-exp)
(syntax-source orig-exp)))
(send (get-tab) get-defs))
(annotate-this-module? fn))
(parameterize ([current-eval oe])
(eval/annotations
top-e
; annotate-module?
@ -688,7 +691,8 @@
(hash-set!
breakpoints posn
(hash-ref breakpoints posn (lambda () #f))))
annotated))))])))
annotated)))]
[else (oe top-e)])])))
(define/private (annotate-this-module? fn)
(cond