steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

(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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/serialize/serialize.factor
View File

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