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

db4
John Benediktsson 2012-10-24 17:11:35 -07:00
parent bf8628bc78
commit 379f060636
1 changed files with 3 additions and 3 deletions

View File

@ -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