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

[factor.git] / basis / vocabs / metadata / metadata.factor

diff --git a/basis/vocabs/metadata/metadata.factor b/basis/vocabs/metadata/metadata.factor
index 30c37998a0a82b23e1b6283df51145a4048c2cd4..adbc1d46245ead4e9e8a32b7cd36cc227dbc74b1 100644 (file)
--- a/basis/vocabs/metadata/metadata.factor
+++ b/basis/vocabs/metadata/metadata.factor
@@ -15,7 +15,7 @@ IN: vocabs.metadata
 
 MEMO: vocab-file-lines ( vocab name -- lines/f )
     vocab-file-path dup [
-        dup exists? [
+        dup file-exists? [
             utf8 file-lines harvest
         ] [
             drop f
@@ -98,17 +98,17 @@ TUPLE: unsupported-platform vocab requires ;
 M: unsupported-platform summary
     drop "Current operating system not supported by this vocabulary" ;
 
-: exists?, ( path -- )
-    [ dup exists? [ , ] [ drop ] if ] when* ;
+: file-exists?, ( path -- )
+    [ dup file-exists? [ , ] [ drop ] if ] when* ;
 
 : vocab-metadata-files ( vocab -- paths )
     [
         {
-            [ vocab-summary-path exists?, ]
-            [ vocab-authors-path exists?, ]
-            [ vocab-tags-path exists?, ]
-            [ vocab-platforms-path exists?, ]
-            [ vocab-resources-path exists?, ]
+            [ vocab-summary-path file-exists?, ]
+            [ vocab-authors-path file-exists?, ]
+            [ vocab-tags-path file-exists?, ]
+            [ vocab-platforms-path file-exists?, ]
+            [ vocab-resources-path file-exists?, ]
         } cleave
     ] { } make ;