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

zo-marshal patch from Jay

Browse Source 
svn: r14642
This commit is contained in:
Matthew Flatt 2009-04-28 16:37:16 +00:00
parent a42ba6075b
commit b42f1b5d8b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/compiler/zo-marshal.ss
View File

@ -5,7 +5,7 @@
(provide zo-marshal) (provide zo-marshal)
;; Doesn't write as compactly as MzScheme, since list and pair sequences ;; Doesn't write as compactly as MzScheme, since list and pair sequences
;; are not compated, and symbols are not written in short form ;; are not compacted, and symbols are not written in short form
(define (zo-marshal top) (define (zo-marshal top)
(match top (match top
@ -82,8 +82,8 @@
(traverse-data self-modidx visit) (traverse-data self-modidx visit)
(traverse-prefix prefix visit) (traverse-prefix prefix visit)
(for-each (lambda (f) (map (lambda (v) (traverse-data v visit)) (cdr f))) requires) (for-each (lambda (f) (map (lambda (v) (traverse-data v visit)) (cdr f))) requires)
(for-each (lambda (f) (traverse-form f prefix)) body) (for-each (lambda (f) (traverse-form f visit)) body)
(for-each (lambda (f) (traverse-form f prefix)) syntax-body) (for-each (lambda (f) (traverse-form f visit)) syntax-body)
(traverse-data lang-info visit) (traverse-data lang-info visit)
(traverse-data internal-context visit)])) (traverse-data internal-context visit)]))