From 379f060636111219bbc8ac59ec1bd18d778a595b Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Wed, 24 Oct 2012 17:11:35 -0700 Subject: [PATCH] io.files.info.unix: make sure to normalize so special paths work. --- basis/io/files/info/unix/unix.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/basis/io/files/info/unix/unix.factor b/basis/io/files/info/unix/unix.factor index a446221ffc..75da6d3716 100644 --- 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