From f5edb8629f4919452384459a5847a3a0a56df5a6 Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Sun, 2 Aug 2009 20:17:25 -0500 Subject: [PATCH] one last sort-with-able straggler in fuel.xref --- extra/fuel/xref/xref.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/fuel/xref/xref.factor b/extra/fuel/xref/xref.factor index 86aa215e21..cfd036e625 100644 --- a/extra/fuel/xref/xref.factor +++ b/extra/fuel/xref/xref.factor @@ -23,7 +23,7 @@ IN: fuel.xref dup dup >vocab-link where normalize-loc 4array ; : sort-xrefs ( seq -- seq' ) - [ [ first ] dip first <=> ] sort ; + [ first ] sort-with ; : format-xrefs ( seq -- seq' ) [ word? ] filter [ word>xref ] map ;