]> gitweb.factorcode.org Git - factor.git/commitdiff
checksums.interleave: Dumb fix for zip change.
authorDoug Coleman <doug.coleman@gmail.com>
Sun, 9 Nov 2014 06:32:36 +0000 (22:32 -0800)
committerDoug Coleman <doug.coleman@gmail.com>
Sun, 9 Nov 2014 06:32:36 +0000 (22:32 -0800)
basis/checksums/interleave/interleave.factor

index caef033ec6e999295bb1b1dd1329da6877186c2a..edc9a48bd6525c8a9895f30ff6b07e247707d6f6 100644 (file)
@@ -9,7 +9,7 @@ IN: checksums.interleave
 
 : 2seq>seq ( seq1 seq2 -- seq )
     #! { aceg } { bdfh } -> { abcdefgh }
-    [ zip concat ] keep like ;
+    [ { } zip-as concat ] keep like ;
 
 :: interleaved-checksum ( bytes checksum -- seq )
     bytes [ zero? ] trim-head