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

[factor.git] / basis / io / directories / unix / unix.factor

diff --git a/basis/io/directories/unix/unix.factor b/basis/io/directories/unix/unix.factor
index 65c1eea8ee94552f2114fa2e3552554fe78f6c2f..798f64d6195e53eda4356a521593d1425e3cd403 100644 (file)
--- a/basis/io/directories/unix/unix.factor
+++ b/basis/io/directories/unix/unix.factor
@@ -13,7 +13,7 @@ CONSTANT: mkdir-mode flags{ USER-ALL GROUP-ALL OTHER-ALL } ! 0o777
 
 M: unix touch-file
     normalize-path
-    dup exists? [ touch ] [
+    dup file-exists? [ touch ] [
         touch-mode file-mode open-file close-file
     ] if ;