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

sorting: simpler check-bounds.

db4
John Benediktsson 2014-02-17 17:50:08 -08:00
parent 6ecb291710
commit d732a5f208
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
core/sorting/sorting.factor
View File

@ -148,8 +148,7 @@ PRIVATE>
<PRIVATE <PRIVATE
: check-bounds ( alist n -- alist ) : check-bounds ( alist n -- alist )
[ swap 2dup bounds-check? [ 2drop ] [ bounds-error ] if ] [ swap bounds-check 2drop ] curry dupd each ;
curry dupd each ;
PRIVATE> PRIVATE>