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

recertify lifted-out varrefs

Browse Source 
svn: r1567
This commit is contained in:
Matthew Flatt 2005-12-08 22:43:18 +00:00
parent 42191d9ecf
commit 5cb5806442
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/stepper/private/annotate.ss
View File

@ -650,7 +650,7 @@
(let*-2vals ([free-varrefs (list var)]
[varref-break-wrap
(lambda ()
(wcm-break-wrap (make-debug-info-normal free-varrefs)
(wcm-break-wrap (make-debug-info-normal free-varrefs)
(return-value-wrap var)))]
[varref-no-break-wrap
(lambda ()
@ -683,7 +683,9 @@
(lambda (vals)
(let*-2vals ([(new-exp bindings) vals])
(2vals (syntax-recertify new-exp exp (current-code-inspector) #f)
bindings)))]
(map (lambda (b)
(syntax-recertify b exp (current-code-inspector) #f))
bindings))))]
)
; find the source expression and associate it with the parsed expression