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

Reformating

Browse Source
This commit is contained in:
Jay McCarthy 2010-05-24 11:58:55 -06:00
parent cb5aac762e
commit 325ac1ae88
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
collects/compiler/zo-marshal.rkt
View File

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