restore gen-id gensym so that decompiler works

2010-11-11 14:21:04 -07:00 · 2010-11-11 14:21:04 -07:00 · 0a8e5e604e
commit 0a8e5e604e
parent c17cf8db71
1 changed files with 1 additions and 7 deletions
--- a/collects/compiler/zo-parse.rkt
+++ b/collects/compiler/zo-parse.rkt
@ -949,13 +949,7 @@
           (let ([v (read-compact cp)])
             (make-closure 
              v
-              ; XXX Why call gensym here?
-              (let ([s (lam-name v)])
-                 (cond
-                   [(symbol? s) s]
-                   [(vector? s) (vector-ref s 0)]
-                   [else 'closure]))
-              #;(gensym
+              (gensym
               (let ([s (lam-name v)])
                 (cond
                   [(symbol? s) s]