(serialize) should not be private since concurrency.distributed defines a method

db4
Slava Pestov 2008-11-15 02:35:53 -06:00
parent 821fb8969c
commit ca1f3b5af0
1 changed files with 2 additions and 5 deletions

View File

@ -15,6 +15,8 @@ locals prettyprint compiler.units sequences.private
classes.tuple.private ;
IN: serialize
GENERIC: (serialize) ( obj -- )
<PRIVATE
! Variable holding a assoc of objects already serialized
@ -37,9 +39,6 @@ M: id equal? over id? [ [ obj>> ] bi@ eq? ] [ 2drop f ] if ;
#! Return the id of an already serialized object
<id> serialized get at ;
! Serialize object
GENERIC: (serialize) ( obj -- )
! Numbers are serialized as follows:
! 0 => B{ 0 }
! 1<=x<=126 => B{ x | 0x80 }
@ -304,10 +303,8 @@ SYMBOL: deserialized
PRIVATE>
: deserialize ( -- obj )
! [
V{ } clone deserialized
[ (deserialize) ] with-variable ;
! ] with-compilation-unit ;
: serialize ( obj -- )
H{ } clone serialized [ (serialize) ] with-variable ;