basis: ERROR: changes.

[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 42a5535cca988bb1839f4062e699b56d56baa57d..28b0daed792ee61137ef9fd966b12459c5a54b92 100644 (file)
--- a/basis/io/files/links/links.factor
+++ b/basis/io/files/links/links.factor
@@ -26,7 +26,7 @@ ERROR: too-many-symlinks path n ;
 <PRIVATE
 
 : (follow-links) ( n path -- path' )
-    over 0 = [ symlink-depth get too-many-symlinks ] when
+    over 0 = [ symlink-depth get throw-too-many-symlinks ] when
     dup link-info symbolic-link?
     [ [ 1 - ] [ follow-link ] bi* (follow-links) ]
     [ nip ] if ; inline recursive