sequences.interleaved: use 2/ (shift) instead of 2 / (divide).

2018-02-16 07:06:50 -08:00 · 2018-02-16 07:06:50 -08:00 · fc40ab3fb8
parent 192cf2a352
commit fc40ab3fb8
1 changed files with 1 additions and 1 deletions
--- a/extra/sequences/interleaved/interleaved.factor
+++ b/extra/sequences/interleaved/interleaved.factor
@ -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 ;