From 0a8e5e604ed6ae81391eb05cba992fa9caaba784 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 11 Nov 2010 14:21:04 -0700
Subject: [PATCH] restore gen-id gensym so that decompiler works

---
 collects/compiler/zo-parse.rkt | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/collects/compiler/zo-parse.rkt b/collects/compiler/zo-parse.rkt
index 41865df308..a4e11f586b 100644
--- 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]