(normalize-path) -> absolute-path, canonicalize-path -> resolve-symlinks

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

diff --git a/extra/fuel/xref/xref.factor b/extra/fuel/xref/xref.factor
index c228901afbefea40326aa38cc2e6e1c08b776f9b..39ba3bd2b3c286d45c8f4e0a19e4d56bcb286f46 100644 (file)
--- a/extra/fuel/xref/xref.factor
+++ b/extra/fuel/xref/xref.factor
@@ -11,7 +11,7 @@ IN: fuel.xref
 <PRIVATE
 
 : normalize-loc ( seq -- path line )
-    [ dup length 0 > [ first (normalize-path) ] [ drop f ] if ]
+    [ dup length 0 > [ first absolute-path ] [ drop f ] if ]
     [ dup length 1 > [ second ] [ drop 1 ] if ] bi ;
 
 : get-loc ( object -- loc ) normalize-loc 2array ;