]> gitweb.factorcode.org Git - factor.git/commitdiff
sequences.interleaved: use 2/ (shift) instead of 2 / (divide).
authorJohn Benediktsson <mrjbq7@gmail.com>
Fri, 16 Feb 2018 15:06:50 +0000 (07:06 -0800)
committerJohn Benediktsson <mrjbq7@gmail.com>
Fri, 16 Feb 2018 15:06:50 +0000 (07:06 -0800)
extra/sequences/interleaved/interleaved.factor

index 680f971711eaf1a65f301b513f78ee2a7d27a7ae..438cb0c60b3bd000afc7d3e35d25bb69f9bffcd4 100644 (file)
@@ -14,7 +14,7 @@ M: interleaved length seq>> length dup 1 - + 0 max ;
 
 M: interleaved nth-unsafe
     over even? [
-        [ 2 / ] [ seq>> ] bi* nth-unsafe
+        [ 2/ ] [ seq>> ] bi* nth-unsafe
     ] [
         nip elt>>
     ] if ;