core: trim using lists with lint.vocabs tool

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

diff --git a/core/io/files/files.factor b/core/io/files/files.factor
index 798d6d7dcefd4ab3cbff191e7c652c8bd63948bd..9189473f74c91f79927cffee8c17dccc5aa34134 100644 (file)
--- a/core/io/files/files.factor
+++ b/core/io/files/files.factor
@@ -1,12 +1,12 @@
 ! Copyright (C) 2004, 2009 Slava Pestov, Daniel Ehrenberg.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: alien.strings init io io.backend io.encodings
+USING: alien.strings io io.backend io.encodings
 io.pathnames kernel kernel.private namespaces sequences
 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,8 @@ 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?) ;
 
 ! Current directory
 <PRIVATE
@@ -90,9 +90,9 @@ PRIVATE>
     ] map-find drop
     [ image-path parent-directory ] unless* "resource-path" set-global ;
 
-[
+STARTUP-HOOK: [
     cwd current-directory set-global
     OBJ-IMAGE special-object alien>native-string \ image-path set-global
     OBJ-EXECUTABLE special-object alien>native-string \ vm-path set-global
     init-resource-path
-] "io.files" add-startup-hook
+]