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

tweak decompiler to use a different name for boxed locals

Browse Source 
original commit: 535c8e0a09
This commit is contained in:
Matthew Flatt 2010-06-10 07:31:53 -04:00
parent 684a88a0e8
commit d19d9eb8f7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/compiler/decompile.rkt
View File

@ -221,7 +221,7 @@
(extract-ids! body ids) (extract-ids! body ids)
(let ([vars (for/list ([i (in-range count)] (let ([vars (for/list ([i (in-range count)]
[id (in-vector ids)]) [id (in-vector ids)])
(or id (gensym 'localv)))]) (or id (gensym (if boxes? 'localvb 'localv))))])
`(let ,(map (lambda (i) `[,i ,(if boxes? `(#%box ?) '?)]) `(let ,(map (lambda (i) `[,i ,(if boxes? `(#%box ?) '?)])
vars) vars)
,(decompile-expr body globs (append vars stack) closed))))] ,(decompile-expr body globs (append vars stack) closed))))]