(follow-links) ( n path -- path' )


Vocabulary
io.files.links.private

Inputs
nan object
pathan object


Outputs
path'an object


Definition
USING: io.files.info io.files.links kernel math namespaces ;

IN: io.files.links.private

: (follow-links) ( n path -- path' )
over 0 = [ symlink-depth get too-many-symlinks ] when
dup link-info symbolic-link?
[ [ 1 - ] [ follow-link ] bi* (follow-links) ] [ nip ] if ;
inline recursive