From a724fe6a0091e5b13205134e16f60c84a99d87de Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 6 Mar 2009 00:48:08 +0000
Subject: [PATCH] rename write-bytecode to zo-marshal

svn: r13974

original commit: 25e7978999f71d511883507065455eb101b7b6dc
---
 collects/compiler/write-bytecode.ss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/compiler/write-bytecode.ss b/collects/compiler/write-bytecode.ss
index a37b768341..327c167163 100644
--- a/collects/compiler/write-bytecode.ss
+++ b/collects/compiler/write-bytecode.ss
@@ -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)]