2008-12-14 21:03:00 -05:00
|
|
|
! Copyright (C) 2008 Slava Pestov.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2008-12-14 22:21:44 -05:00
|
|
|
USING: io.backend io.files.links system unix ;
|
2008-12-14 21:03:00 -05:00
|
|
|
IN: io.files.links.unix
|
|
|
|
|
|
|
|
|
|
M: unix make-link ( path1 path2 -- )
|
|
|
|
|
normalize-path symlink io-error ;
|
|
|
|
|
|
|
|
|
|
M: unix read-link ( path -- path' )
|
|
|
|
|
normalize-path read-symbolic-link ;
|
