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
(cherry picked from commit fadd1d9714)
This commit is contained in:
Robby Findler 2012-07-24 04:03:49 -05:00 committed by Ryan Culpepper
parent 214aeb4810
commit 07dd4500f5
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