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

restore gen-id gensym so that decompiler works

Browse Source 
original commit: 0a8e5e604e
This commit is contained in:
Matthew Flatt 2010-11-11 14:21:04 -07:00
parent 74c7025e6e
commit 37f822ccb2
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/compiler/zo-parse.rkt
View File

@ -949,13 +949,7 @@
(let ([v (read-compact cp)]) (let ([v (read-compact cp)])
(make-closure (make-closure
v v
; XXX Why call gensym here? (gensym
(let ([s (lam-name v)])
(cond
[(symbol? s) s]
[(vector? s) (vector-ref s 0)]
[else 'closure]))
#;(gensym
(let ([s (lam-name v)]) (let ([s (lam-name v)])
(cond (cond
[(symbol? s) s] [(symbol? s) s]