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

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

diff --git a/basis/vocabs/hierarchy/hierarchy.factor b/basis/vocabs/hierarchy/hierarchy.factor
index 4ba44cc56ddcccebd5dd29d397718022ca0cb9c1..f1edacca3584753f3a777a1fa19e2992b379ab72 100644 (file)
--- a/basis/vocabs/hierarchy/hierarchy.factor
+++ b/basis/vocabs/hierarchy/hierarchy.factor
@@ -30,14 +30,14 @@ ERROR: vocab-root-required root ;
 
 : vocab-directory-entries ( root prefix -- vocab-path vocab-name entries )
     ensure-vocab-root/prefix [ vocab-dir append-path ] keep
-    over dup exists? [ directory-entries ] [ drop { } ] if ;
+    over dup file-exists? [ directory-entries ] [ drop { } ] if ;
 
 : (disk-vocabs) ( root prefix -- seq )
     vocab-directory-entries visible-dirs [
         name>>
         [ dup ".factor" append append-path append-path ]
         [ over empty? [ nip ] [ "." glue ] if ] bi-curry bi*
-        swap exists? [ >vocab-link ] [ <vocab-prefix> ] if
+        swap file-exists? [ >vocab-link ] [ <vocab-prefix> ] if
     ] 2with map ;
 
 DEFER: add-vocab%