steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

use read-link instead, remove dependency on unix. oops

db4
Doug Coleman 2008-12-18 19:32:09 -06:00
parent a326943f8b
commit 513b4b3708
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/io/files/links/links.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2008 Slava Pestov, Doug Coleman. ! Copyright (C) 2008 Slava Pestov, Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors io.backend io.files.info io.files.types USING: accessors io.backend io.files.info io.files.types
io.pathnames kernel math namespaces system unix vocabs.loader ; io.pathnames kernel math namespaces system vocabs.loader ;
IN: io.files.links IN: io.files.links
HOOK: make-link os ( target symlink -- ) HOOK: make-link os ( target symlink -- )
@ -14,7 +14,7 @@ HOOK: read-link os ( symlink -- path )
os unix? [ "io.files.links.unix" require ] when os unix? [ "io.files.links.unix" require ] when
: follow-link ( path -- path' ) : follow-link ( path -- path' )
[ parent-directory ] [ read-symbolic-link ] bi append-path ; [ parent-directory ] [ read-link ] bi append-path ;
SYMBOL: symlink-depth SYMBOL: symlink-depth
10 symlink-depth set-global 10 symlink-depth set-global