From d19d9eb8f76cf2269d667693be09e3668bbb5c87 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 10 Jun 2010 07:31:53 -0400
Subject: [PATCH] tweak decompiler to use a different name for boxed locals

original commit: 535c8e0a09a2bb9ed34881ed19f81763226c9d12
---
 collects/compiler/decompile.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/compiler/decompile.rkt b/collects/compiler/decompile.rkt
index f10d8737ac..b011c988ab 100644
--- 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))))]