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 543622c1d13ded074f72ff24f9c6ff932e3f7bea..9189473f74c91f79927cffee8c17dccc5aa34134 100644 (file)
--- a/core/io/files/files.factor
+++ b/core/io/files/files.factor
@@ -1,6 +1,6 @@
 ! 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
@@ -73,8 +73,6 @@ HOOK: (file-appender) io-backend ( path -- stream )
 : file-exists? ( path -- ? )
     normalize-path native-string>alien (file-exists?) ;
 
-ALIAS: exists? file-exists? deprecated
-
 ! Current directory
 <PRIVATE
 
@@ -92,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
+]