]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/checksums/interleave/interleave.factor
Fix comments to be ! not #!.
[factor.git] / basis / checksums / interleave / interleave.factor
index caef033ec6e999295bb1b1dd1329da6877186c2a..5feff8fd352a9636214d9b813f2bf519b44cf660 100644 (file)
@@ -4,11 +4,11 @@ USING: assocs checksums grouping kernel locals 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 }
+    ! { aceg } { bdfh } -> { abcdefgh }
     [ zip concat ] keep like ;
 
 :: interleaved-checksum ( bytes checksum -- seq )