rename write-bytecode to zo-marshal

svn: r13974

original commit: 25e7978999
This commit is contained in:
Matthew Flatt 2009-03-06 00:48:08 +00:00
parent 9cc0f1b7cd
commit a724fe6a00

View File

@ -2,12 +2,12 @@
(require compiler/zo-parse (require compiler/zo-parse
scheme/match) scheme/match)
(provide write-bytecode) (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 compated, and symbols are not written in short form
(define (write-bytecode top) (define (zo-marshal top)
(match top (match top
[(struct compilation-top (max-let-depth prefix form)) [(struct compilation-top (max-let-depth prefix form))
(let ([encountered (make-hasheq)] (let ([encountered (make-hasheq)]