sorting: simpler check-bounds.

diff --git a/core/sorting/sorting.factor b/core/sorting/sorting.factor
index 5ca547685e8746af7cac88cbc4489ae07335a7cd..fd149314175c2c2444290c2f621af7c8cbfaf29c 100644 (file)
--- 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>