From 4550294227d3eb8c58830a4dc72d550b267a1aa5 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 15 Jun 2015 20:44:26 -0700
Subject: [PATCH] sorting.quick: speedup by inline sort!.

---
 extra/sorting/quick/quick.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/sorting/quick/quick.factor b/extra/sorting/quick/quick.factor
index 38ee1b9627..819fd59beb 100644
--- 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