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

[factor.git] / extra / tools / cat / cat.factor

diff --git a/extra/tools/cat/cat.factor b/extra/tools/cat/cat.factor
index 45694598df4736bf1804412da84081e85196d85d..bd0ab867334031fdb8e7734183e1621b960cc131 100644 (file)
--- a/extra/tools/cat/cat.factor
+++ b/extra/tools/cat/cat.factor
@@ -12,7 +12,7 @@ IN: tools.cat
     '[ _ stream-write ] each-stream-block ;
 
 : cat-file ( path -- )
-    dup exists? [
+    dup file-exists? [
         binary [ cat-stream ] with-file-reader
     ] [ "%s: not found\n" printf flush ] if ;