sorting: simpler check-bounds.

2014-02-17 17:50:08 -08:00 · 2014-02-17 17:50:08 -08:00 · d732a5f208
parent 6ecb291710
commit d732a5f208
1 changed files with 1 additions and 2 deletions
--- a/core/sorting/sorting.factor
+++ b/core/sorting/sorting.factor
@ -148,8 +148,7 @@ PRIVATE>
 <PRIVATE

 : check-bounds ( alist n -- alist )
-    [ swap 2dup bounds-check? [ 2drop ] [ bounds-error ] if ]
-    curry dupd each ;
+    [ swap bounds-check 2drop ] curry dupd each ;

 PRIVATE>