Reformating

collects/compiler/zo-marshal.rkt

@@ -47,8 +47,8 @@
      (let* ([s (open-output-bytes)]
             [out (make-out s (lambda (v) (hash-ref shared v #f)) wrapped)]
             [offsets
-             (map (lambda (v)
-                    (let ([v (cdr v)])
+             (map (lambda (k*v)
+                    (define v (cdr k*v))
                     (begin0
                       (file-position s)
                       (out-anything v (make-out
@@ -60,7 +60,7 @@
                                                  (set! skip? #f)
                                                  #f)
                                                (hash-ref shared v2 #f))))
-                                         wrapped)))))
+                                       wrapped))))
                   (sort (hash-map shared (lambda (k v) (cons v k)))
                         <
                         #:key car))]