sorting.quick: speedup by inline sort!.

diff --git a/extra/sorting/quick/quick.factor b/extra/sorting/quick/quick.factor
index 38ee1b96273353e21e47834a52eed9377042c4d0..819fd59beb6c3af8c1b5b33d52e4cccb938a41ca 100644 (file)
--- a/extra/sorting/quick/quick.factor
+++ b/extra/sorting/quick/quick.factor
@@ -36,7 +36,7 @@ IN: sorting.quick
 PRIVATE>
 
 : sort! ( seq quot: ( obj1 obj2 -- <=> ) -- )
-    [ 0 over length 1 - ] dip quicksort ;
+    [ 0 over length 1 - ] dip quicksort ; inline
 
 : sort-with! ( seq quot: ( elt -- key ) -- )
     [ compare ] curry sort! ; inline