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

Fix serialize

db4
Slava Pestov 2008-03-27 03:27:22 -05:00
parent 3a9839a168
commit b008f69c25
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/serialize/serialize.factor
View File

@ -269,7 +269,7 @@ SYMBOL: deserialized
[ ] tri ; [ ] tri ;
: copy-seq-to-tuple ( seq tuple -- ) : copy-seq-to-tuple ( seq tuple -- )
>r dup length [ 1+ ] map r> [ set-array-nth ] curry 2each ; >r dup length r> [ set-array-nth ] curry 2each ;
: deserialize-tuple ( -- array ) : deserialize-tuple ( -- array )
#! Ugly because we have to intern the tuple before reading #! Ugly because we have to intern the tuple before reading