factor: trim using lists

[factor.git] / basis / checksums / interleave / interleave.factor

diff --git a/basis/checksums/interleave/interleave.factor b/basis/checksums/interleave/interleave.factor
index edc9a48bd6525c8a9895f30ff6b07e247707d6f6..5ebaabd688f400b6e914a8bb21c98dd776fa20ef 100644 (file)
--- a/basis/checksums/interleave/interleave.factor
+++ b/basis/checksums/interleave/interleave.factor
@@ -1,15 +1,15 @@
 ! Copyright (C) 2009 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: assocs checksums grouping kernel locals math sequences ;
+USING: assocs checksums grouping kernel math sequences ;
 IN: checksums.interleave
 
 : seq>2seq ( seq -- seq1 seq2 )
-    #! { abcdefgh } -> { aceg } { bdfh }
+    ! { abcdefgh } -> { aceg } { bdfh }
     2 group flip [ { } { } ] [ first2 ] if-empty ;
 
 : 2seq>seq ( seq1 seq2 -- seq )
-    #! { aceg } { bdfh } -> { abcdefgh }
-    [ { } zip-as concat ] keep like ;
+    ! { aceg } { bdfh } -> { abcdefgh }
+    [ zip concat ] keep like ;
 
 :: interleaved-checksum ( bytes checksum -- seq )
     bytes [ zero? ] trim-head