io.files.info: fix circularity regression in file-systems on linux

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

diff --git a/basis/io/files/info/info.factor b/basis/io/files/info/info.factor
index baf41ab88c3d1af9836dc169abf02b53699e7b14..555620aa337af97b2825fb51e8a3a87fdbfcb7c0 100644 (file)
--- a/basis/io/files/info/info.factor
+++ b/basis/io/files/info/info.factor
@@ -34,8 +34,10 @@ HOOK: file-readable? os ( path -- ? )
 HOOK: file-writable? os ( path -- ? )
 HOOK: file-executable? os ( path -- ? )
 
-: mount-points ( -- assoc )
-    file-systems [ [ mount-point>> canonicalize-path-full ] keep ] H{ } map>assoc ;
+HOOK: mount-points os ( -- assoc )
+
+M: object mount-points
+    file-systems [ [ mount-point>> ] keep ] H{ } map>assoc ;
 
 : (find-mount-point-info) ( path assoc -- mtab-entry )
     [ resolve-symlinks canonicalize-path-full ] dip