tweak decompiler to use a different name for boxed locals

original commit: 535c8e0a09
2010-06-10 07:31:53 -04:00 · 2010-06-10 07:31:53 -04:00 · d19d9eb8f7
commit d19d9eb8f7
parent 684a88a0e8
1 changed files with 1 additions and 1 deletions
--- a/collects/compiler/decompile.rkt
+++ b/collects/compiler/decompile.rkt
@ -221,7 +221,7 @@
       (extract-ids! body ids)
       (let ([vars (for/list ([i (in-range count)]
                              [id (in-vector ids)])
-                     (or id (gensym 'localv)))])
+                     (or id (gensym (if boxes? 'localvb 'localv))))])
         `(let ,(map (lambda (i) `[,i ,(if boxes? `(#%box ?) '?)])
                     vars)
            ,(decompile-expr body globs (append vars stack) closed))))]