steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
Joe Groff 2009-08-02 20:13:59 -05:00
parent 2a60451107
commit a2fe9f1952
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/alien/fortran/fortran.factor
View File

@ -365,7 +365,7 @@ M: character-type (<fortran-result>)
] bi* ; ] bi* ;
: (fortran-in-shuffle) ( ret par -- seq ) : (fortran-in-shuffle) ( ret par -- seq )
[ [ second ] bi@ <=> ] sort append ; [ second ] sort-with append ;
: (fortran-out-shuffle) ( ret par -- seq ) : (fortran-out-shuffle) ( ret par -- seq )
append ; append ;

2
extra/gpu/render/render.factor
View File

@ -422,7 +422,7 @@ SYNTAX: UNIFORM-TUPLE:
[ [ length ] [ >int-array ] bi glDrawBuffers ] if ; [ [ length ] [ >int-array ] bi glDrawBuffers ] if ;
: bind-named-output-attachments ( program-instance framebuffer attachments -- ) : 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-unnamed-output-attachments ;
: bind-output-attachments ( program-instance framebuffer attachments -- ) : bind-output-attachments ( program-instance framebuffer attachments -- )