io.files.info: use directory?, symbolic-link?, and regular-file?.

[factor.git] / basis / io / files / links / links.factor

diff --git a/basis/io/files/links/links.factor b/basis/io/files/links/links.factor
index 8526321a854684b35c68cd67458f54ac268c4d75..42a5535cca988bb1839f4062e699b56d56baa57d 100644 (file)
--- a/basis/io/files/links/links.factor
+++ b/basis/io/files/links/links.factor
@@ -27,7 +27,7 @@ ERROR: too-many-symlinks path n ;
 
 : (follow-links) ( n path -- path' )
     over 0 = [ symlink-depth get too-many-symlinks ] when
-    dup link-info type>> +symbolic-link+ =
+    dup link-info symbolic-link?
     [ [ 1 - ] [ follow-link ] bi* (follow-links) ]
     [ nip ] if ; inline recursive