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

one last sort-with-able straggler in fuel.xref

db4
Joe Groff 2009-08-02 20:17:25 -05:00
parent 97a515c04e
commit f5edb8629f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/fuel/xref/xref.factor
View File

@ -23,7 +23,7 @@ IN: fuel.xref
dup dup >vocab-link where normalize-loc 4array ; dup dup >vocab-link where normalize-loc 4array ;
: sort-xrefs ( seq -- seq' ) : sort-xrefs ( seq -- seq' )
[ [ first ] dip first <=> ] sort ; [ first ] sort-with ;
: format-xrefs ( seq -- seq' ) : format-xrefs ( seq -- seq' )
[ word? ] filter [ word>xref ] map ; [ word? ] filter [ word>xref ] map ;