sorting: inline check-bounds.

diff --git a/core/sorting/sorting.factor b/core/sorting/sorting.factor
index fd149314175c2c2444290c2f621af7c8cbfaf29c..32ebe7f7bfce5343764e956225c69401d7ffbd23 100644 (file)
--- a/core/sorting/sorting.factor
+++ b/core/sorting/sorting.factor
@@ -148,7 +148,7 @@ PRIVATE>
 <PRIVATE
 
 : check-bounds ( alist n -- alist )
-    [ swap bounds-check 2drop ] curry dupd each ;
+    [ swap bounds-check 2drop ] curry dupd each ; inline
 
 PRIVATE>