sequences: less bounds checking in binary-reduce.
parent
d2317c71f5
commit
b135b956a7
|
@ -867,9 +867,9 @@ PRIVATE>
|
||||||
pick length dup 0 3 between? [
|
pick length dup 0 3 between? [
|
||||||
integer>fixnum {
|
integer>fixnum {
|
||||||
[ drop nip ]
|
[ drop nip ]
|
||||||
[ 2drop first ]
|
[ 2drop first-unsafe ]
|
||||||
[ [ drop first2 ] dip call ]
|
[ [ drop first2-unsafe ] dip call ]
|
||||||
[ [ drop first3 ] dip bi@ ]
|
[ [ drop first3-unsafe ] dip bi@ ]
|
||||||
} dispatch
|
} dispatch
|
||||||
] [
|
] [
|
||||||
drop
|
drop
|
||||||
|
|
Loading…
Reference in New Issue