io.files: exists? -> file-exists? and rename primitive.

[factor.git] / core / io / files / files.factor

diff --git a/core/io/files/files.factor b/core/io/files/files.factor
index 798d6d7dcefd4ab3cbff191e7c652c8bd63948bd..4c859b68f2e86ee187eff3b527d4de28e7a7b970 100644 (file)
--- a/core/io/files/files.factor
+++ b/core/io/files/files.factor
@@ -6,7 +6,7 @@ splitting system ;
 IN: io.files
 
 <PRIVATE
-PRIMITIVE: (exists?) ( path -- ? )
+PRIMITIVE: (file-exists?) ( path -- ? )
 PRIVATE>
 
 SYMBOL: +retry+ ! just try the operation again without blocking
@@ -70,8 +70,10 @@ HOOK: (file-appender) io-backend ( path -- stream )
 : with-file-appender ( path encoding quot -- )
     [ <file-appender> ] dip with-output-stream ; inline
 
-: exists? ( path -- ? )
-    normalize-path native-string>alien (exists?) ;
+: file-exists? ( path -- ? )
+    normalize-path native-string>alien (file-exists?) ;
+
+ALIAS: exists? file-exists?
 
 ! Current directory
 <PRIVATE