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

[factor.git] / basis / io / files / info / unix / linux / linux.factor

diff --git a/basis/io/files/info/unix/linux/linux.factor b/basis/io/files/info/unix/linux/linux.factor
index 04dfce76435cbc6d7f6fa0675d4e8de5c959f085..8ec5753e1185d8b89b5308db9c2667bb3187bc16 100644 (file)
--- a/basis/io/files/info/unix/linux/linux.factor
+++ b/basis/io/files/info/unix/linux/linux.factor
@@ -80,7 +80,7 @@ M: linux file-systems
     ] if ;
 
 : find-mount-point ( path -- mtab-entry )
-    canonicalize-path
+    resolve-symlinks
     parse-mtab [ [ mount-point>> ] keep ] H{ } map>assoc (find-mount-point) ;
 
 ERROR: file-system-not-found ;