Merge branch 'master' of git://factorcode.org/git/factor

2008-03-27 05:02:16 -05:00 · 2008-03-27 05:02:16 -05:00 · 868189e847
parent f1ee3dcb32 b008f69c25
commit 868189e847
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