rename write-bytecode to zo-marshal
svn: r13974
original commit: 25e7978999
This commit is contained in:
parent
9cc0f1b7cd
commit
a724fe6a00
|
@ -2,12 +2,12 @@
|
|||
(require compiler/zo-parse
|
||||
scheme/match)
|
||||
|
||||
(provide write-bytecode)
|
||||
(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
|
||||
|
||||
(define (write-bytecode top)
|
||||
(define (zo-marshal top)
|
||||
(match top
|
||||
[(struct compilation-top (max-let-depth prefix form))
|
||||
(let ([encountered (make-hasheq)]
|
||||
|
|
Loading…
Reference in New Issue
Block a user