Comment out compilation unit stuff for now
parent
296a20767f
commit
6e7556242b
|
@ -316,10 +316,10 @@ SYMBOL: deserialized
|
||||||
deserialize* [ "End of stream" throw ] unless ;
|
deserialize* [ "End of stream" throw ] unless ;
|
||||||
|
|
||||||
: deserialize ( -- obj )
|
: deserialize ( -- obj )
|
||||||
[
|
! [
|
||||||
V{ } clone deserialized
|
V{ } clone deserialized
|
||||||
[ (deserialize) ] with-variable
|
[ (deserialize) ] with-variable ;
|
||||||
] with-compilation-unit ;
|
! ] with-compilation-unit ;
|
||||||
|
|
||||||
: serialize ( obj -- )
|
: serialize ( obj -- )
|
||||||
H{ } clone serialized [ (serialize) ] with-variable ;
|
H{ } clone serialized [ (serialize) ] with-variable ;
|
||||||
|
|
Loading…
Reference in New Issue