X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=core%2Fsorting%2Fsorting.factor;h=30ecb70ed9f4335219bf05445411b01eb37459da;hp=ef9ada95917f0a9efe7ebe5c406e9e666b31b9ca;hb=25a877e50b55c7e6ed75ba8c49de12434237ad23;hpb=385c4661d6582aa777a2f84be5e94703f04c17a6

diff --git a/core/sorting/sorting.factor b/core/sorting/sorting.factor
index ef9ada9591..30ecb70ed9 100644
--- 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