From b42f1b5d8bd8b7d9a15f7a0db6a5dcf73f4caac9 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 28 Apr 2009 16:37:16 +0000 Subject: [PATCH] zo-marshal patch from Jay svn: r14642 --- collects/compiler/zo-marshal.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/compiler/zo-marshal.ss b/collects/compiler/zo-marshal.ss index 1bce9921d8..5c0a17db8e 100644 --- a/collects/compiler/zo-marshal.ss +++ b/collects/compiler/zo-marshal.ss @@ -5,7 +5,7 @@ (provide zo-marshal) ;; 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) (match top @@ -82,8 +82,8 @@ (traverse-data self-modidx visit) (traverse-prefix prefix visit) (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 prefix)) syntax-body) + (for-each (lambda (f) (traverse-form f visit)) body) + (for-each (lambda (f) (traverse-form f visit)) syntax-body) (traverse-data lang-info visit) (traverse-data internal-context visit)]))