fixing closure problem

collects/compiler/zo-marshal.rkt

@@ -87,7 +87,7 @@
     (define (shared-obj-pos/modulo-v v)
       (define skip? #t)
       (λ (v2 #:share [share? #t])
-        (if (and skip? (eq? v v2) (not (closure? v2)))
+        (if (and skip? (eq? v v2) #;(not (closure? v2)))
             (begin
               (set! skip? #f)
               #f)

collects/compiler/zo-parse.rkt

@@ -941,7 +941,9 @@
                   [ind (make-indirect #f)])
              (symtab-write! cp l ind)
              (let* ([v (read-compact cp)]
-                    [cl (make-closure v (gensym
+                    [cl (make-closure v
+                                      ; XXX Why call gensym here?
+                                      (gensym
                                        (let ([s (lam-name v)])
                                          (cond
                                            [(symbol? s) s]

collects/tests/compiler/zo-exs.rkt

@@ -27,7 +27,7 @@
   (compilation-top 0 
                    (prefix 0 empty empty)
                    (let* ([ph (make-placeholder #f)]
-                          [x (closure 
+                          [x (indirect (closure 
                                (lam 'name
                                     empty
                                     0 
@@ -37,7 +37,7 @@
                                     empty
                                     0
                                     ph)
-                              (gensym))])
+                               'name))])
                      (placeholder-set! ph x)
                      (make-reader-graph x))))