sequences: less bounds checking in binary-reduce.

2012-09-04 15:46:41 -07:00 · 2012-09-04 15:46:41 -07:00 · b135b956a7
parent d2317c71f5
commit b135b956a7
1 changed files with 3 additions and 3 deletions
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@ -867,9 +867,9 @@ PRIVATE>
    pick length dup 0 3 between? [
        integer>fixnum {
            [ drop nip ]
-            [ 2drop first ]
-            [ [ drop first2 ] dip call ]
-            [ [ drop first3 ] dip bi@ ]
+            [ 2drop first-unsafe ]
+            [ [ drop first2-unsafe ] dip call ]
+            [ [ drop first3-unsafe ] dip bi@ ]
        } dispatch
    ] [
        drop