[ [ ... ] bi@ <=> ] sort => [ ... ] sort-with

diff --git a/basis/alien/fortran/fortran.factor b/basis/alien/fortran/fortran.factor
index 54b799f6750f2b9d3d3fb54ef72a58a43638f0b4..15840dfd66d26d5c95be292b36a00fa276cecf8c 100644 (file)
--- a/basis/alien/fortran/fortran.factor
+++ b/basis/alien/fortran/fortran.factor
@@ -365,7 +365,7 @@ M: character-type (<fortran-result>)
     ] bi* ;
 
 : (fortran-in-shuffle) ( ret par -- seq )
-    [ [ second ] bi@ <=> ] sort append ;
+    [ second ] sort-with append ;
 
 : (fortran-out-shuffle) ( ret par -- seq )
     append ;

diff --git a/extra/gpu/render/render.factor b/extra/gpu/render/render.factor
index 35e137a2356510fa2a96865904a3fa60bd967c7a..2f920645ed5a2213a4b5092613138ede0077552c 100644 (file)
--- a/extra/gpu/render/render.factor
+++ b/extra/gpu/render/render.factor
@@ -422,7 +422,7 @@ SYNTAX: UNIFORM-TUPLE:
     [ [ length ] [ >int-array ] bi glDrawBuffers ] if ;
 
 : bind-named-output-attachments ( program-instance framebuffer attachments -- )
-    rot '[ [ first _ swap output-index ] bi@ <=> ] sort [ second ] map
+    rot '[ first _ swap output-index ] sort-with [ second ] map
     bind-unnamed-output-attachments ;
 
 : bind-output-attachments ( program-instance framebuffer attachments -- )