sequences: less bounds checking in binary-reduce.

db4
John Benediktsson 2012-09-04 15:46:41 -07:00
parent d2317c71f5
commit b135b956a7
1 changed files with 3 additions and 3 deletions

View File

@ -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