Fix serialize

2008-03-27 03:27:22 -05:00 · 2008-03-27 03:27:22 -05:00 · b008f69c25
parent 3a9839a168
commit b008f69c25
1 changed files with 1 additions and 1 deletions
--- a/extra/serialize/serialize.factor
+++ b/extra/serialize/serialize.factor
@ -269,7 +269,7 @@ SYMBOL: deserialized
    [ ] tri ;

 : 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 )
    #! Ugly because we have to intern the tuple before reading