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
|
(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)]
|
||||||
|
|
Loading…
Reference in New Issue
Block a user