Merge OneEyed's patch

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

diff --git a/core/sorting/sorting.factor b/core/sorting/sorting.factor
index 043505759e310657768aa6902ab220be979ce96e..30ecb70ed9f4335219bf05445411b01eb37459da 100644 (file)
--- a/core/sorting/sorting.factor
+++ b/core/sorting/sorting.factor
@@ -137,9 +137,9 @@ TUPLE: merge
         [ drop nip nth ] dip push
     ] [
         [
-            [ tuck [ nth-unsafe ] 2bi@ 2dup ] dip call +gt+ eq?
+            [ [ nth-unsafe ] curry bi@ 2dup ] dip call +gt+ eq?
             [ swap ] when
-        ] dip tuck [ push ] 2bi@
+        ] dip [ push ] curry bi@
     ] if ; inline
 
 : sort-pairs ( merge quot -- )