steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
core/sequences/sequences.factor
View File

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