From 33983754474e80104ffa0591027a5c1bf75e77c5 Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Sun, 2 Aug 2009 20:13:59 -0500 Subject: [PATCH] [ [ ... ] bi@ <=> ] sort => [ ... ] sort-with --- basis/alien/fortran/fortran.factor | 2 +- extra/gpu/render/render.factor | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/alien/fortran/fortran.factor b/basis/alien/fortran/fortran.factor index 54b799f675..15840dfd66 100644 --- a/basis/alien/fortran/fortran.factor +++ b/basis/alien/fortran/fortran.factor @@ -365,7 +365,7 @@ M: character-type () ] 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 35e137a235..2f920645ed 100644 --- 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 -- )