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

fix decompiler's listing of captured top- and module-level variables

Browse Source 
original commit: db75dddf87
This commit is contained in:
Matthew Flatt 2011-05-08 16:57:56 -06:00
parent 87373a2e0c
commit 13e715ef44
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/compiler/decompile.rkt
View File

@ -328,7 +328,8 @@
(list (list
(for/list ([pos (in-set tl-map)]) (for/list ([pos (in-set tl-map)])
(list-ref/protect (glob-desc-vars globs) (list-ref/protect (glob-desc-vars globs)
(if (pos . < . (glob-desc-num-tls globs)) (if (or (pos . < . (glob-desc-num-tls globs))
(zero? (glob-desc-num-stxs globs)))
pos pos
(+ pos (glob-desc-num-stxs globs) 1)) (+ pos (glob-desc-num-stxs globs) 1))
'lam))))))) 'lam)))))))