io.files.info.unix: make sure to normalize so special paths work.

diff --git a/basis/io/files/info/unix/unix.factor b/basis/io/files/info/unix/unix.factor
index a446221ffcf2d2419f36e1f65433e88c6c13b498..75da6d37160eb8de2a5a85899d63ea571f1425f6 100644 (file)
--- a/basis/io/files/info/unix/unix.factor
+++ b/basis/io/files/info/unix/unix.factor
@@ -284,8 +284,8 @@ PRIVATE>
         [ drop file-type>executable ]
     } case ;
 
-M: unix file-readable? flags{ F_OK R_OK } access 0 = ;
-M: unix file-writable? flags{ F_OK W_OK } access 0 = ;
-M: unix file-executable? flags{ F_OK X_OK } access 0 = ;
+M: unix file-readable? normalize-path flags{ F_OK R_OK } access 0 = ;
+M: unix file-writable? normalize-path flags{ F_OK W_OK } access 0 = ;
+M: unix file-executable? normalize-path flags{ F_OK X_OK } access 0 = ;
 
 "io.files.info.unix." os name>> append require