Merge branch 'emacs' of http://git.hacks-galore.org/jao/factor

[factor.git] / extra / fuel / xref / xref.factor

diff --git a/extra/fuel/xref/xref.factor b/extra/fuel/xref/xref.factor
index 2eca55d1565ecaced1679b932e02db9d61dc72f6..c228901afbefea40326aa38cc2e6e1c08b776f9b 100644 (file)
--- 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 ;