1 ! Copyright (C) 2008 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: io.backend io.files.links system unix ;
4 IN: io.files.links.unix
6 M: unix make-link ( path1 path2 -- )
7 normalize-path symlink io-error ;
9 M: unix read-link ( path -- path' )
10 normalize-path read-symbolic-link ;