From 25e7978999f71d511883507065455eb101b7b6dc Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 6 Mar 2009 00:48:08 +0000 Subject: [PATCH] rename write-bytecode to zo-marshal svn: r13974 --- collects/compiler/write-bytecode.ss | 4 ++-- collects/scribblings/mzc/decompile.scrbl | 8 ++++---- 2 files changed, 6 insertions(+), 6 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)] diff --git a/collects/scribblings/mzc/decompile.scrbl b/collects/scribblings/mzc/decompile.scrbl index 8e9e527bc8..a97c36e69d 100644 --- a/collects/scribblings/mzc/decompile.scrbl +++ b/collects/scribblings/mzc/decompile.scrbl @@ -4,7 +4,7 @@ (for-label scheme/base compiler/decompile (only-in compiler/zo-parse compilation-top?) - compiler/write-bytecode)) + compiler/zo-marshal)) @title[#:tag "decompile"]{Decompiling Bytecode} @@ -105,11 +105,11 @@ Consumes the result of parsing bytecode and returns an S-expression @; ------------------------------------------------------------ -@section{Scheme API for Recompiling} +@section{Scheme API for Marshaling Bytecode} -@defmodule[compiler/write-bytecode] +@defmodule[compiler/zo-marshal] -@defproc[(write-bytecode [top compilation-top?]) bytes?]{ +@defproc[(zo-marshal [top compilation-top?]) bytes?]{ Consumes a representation of bytecode and generates a byte string for the marshaled bytecode. Currently, modules and quoted syntax objects