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

[factor.git] / basis / io / directories / search / search.factor

diff --git a/basis/io/directories/search/search.factor b/basis/io/directories/search/search.factor
index 0c947e5bc63ec709d94730f4b4dca1704bfa95b6..4356a0b988c711943e21636112f18e1cb036990a 100755 (executable)
--- a/basis/io/directories/search/search.factor
+++ b/basis/io/directories/search/search.factor
@@ -6,11 +6,11 @@ locals math sequences sorting system unicode.case vocabs.loader ;
 IN: io.directories.search
 
 : qualified-directory-entries ( path -- seq )
-    (normalize-path)
+    absolute-path
     dup directory-entries [ [ append-path ] change-name ] with map ;
 
 : qualified-directory-files ( path -- seq )
-    (normalize-path)
+    absolute-path
     dup directory-files [ append-path ] with map ;
 
 : with-qualified-directory-files ( path quot -- )