! Copyright (C) 2004, 2009 Slava Pestov, Daniel Ehrenberg.
! See http://factorcode.org/license.txt for BSD license.
-USING: alien.strings continuations init io io.backend
-io.encodings io.encodings.utf8 io.files.private io.pathnames
+USING: alien.strings init io io.backend io.encodings io.pathnames
kernel kernel.private namespaces sequences splitting system ;
IN: io.files
[
cwd current-directory set-global
- OBJ-IMAGE special-object alien>native-string cwd prepend-path \ image-path set-global
- OBJ-EXECUTABLE special-object alien>native-string cwd prepend-path \ vm-path 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