io.unix.file: update read-link

2008-05-13 18:36:54 -05:00 · 2008-05-13 18:36:54 -05:00 · 68fbd92703
parent 95f7d8c8d4
commit 68fbd92703
1 changed files with 1 additions and 3 deletions
--- a/extra/io/unix/files/files.factor
+++ b/extra/io/unix/files/files.factor
@ -105,6 +105,4 @@ M: unix make-link ( path1 path2 -- )
    normalize-path symlink io-error ;

 M: unix read-link ( path -- path' )
-    normalize-path
-    PATH_MAX [ <byte-array> tuck ] [ ] bi readlink
-    dup io-error head-slice >string ;
+   normalize-path read-symbolic-link ;