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

checksums.interleave: Dumb fix for zip change.

db4
Doug Coleman 2014-11-08 22:32:36 -08:00
parent 46d855665a
commit 4b8de3ca1e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/checksums/interleave/interleave.factor
View File

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