Delete empty unit tests files, remove 1- and 1+, reorder IN: lines in a lot of places...

[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 7aec916c72086977809a0e4f6a8a6e97acdd62bf..38bcc86cc6b00fbb8a9cae6a46ddf075d9ea13e2 100644 (file)
--- a/basis/io/files/links/links.factor
+++ b/basis/io/files/links/links.factor
@@ -28,7 +28,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+ =
-    [ [ 1- ] [ follow-link ] bi* (follow-links) ]
+    [ [ 1 - ] [ follow-link ] bi* (follow-links) ]
     [ nip ] if ; inline recursive
 
 PRIVATE>