Merge OneEyed's patch

[factor.git] / core / sorting / sorting.factor

diff --git a/core/sorting/sorting.factor b/core/sorting/sorting.factor
index ef9ada95917f0a9efe7ebe5c406e9e666b31b9ca..30ecb70ed9f4335219bf05445411b01eb37459da 100644 (file)
--- a/core/sorting/sorting.factor
+++ b/core/sorting/sorting.factor
@@ -126,7 +126,7 @@ TUPLE: merge
 : sort-loop ( merge quot -- )
     [ 2 [ over seq>> length over > ] ] dip
     [ [ 1 shift 2dup ] dip sort-pass ] curry
-    [ ] while 2drop ; inline
+    while 2drop ; inline
 
 : each-pair ( seq quot -- )
     [ [ length 1+ 2/ ] keep ] dip