io.files: the paths are absolute so cwd prepend-path isn't needed
parent
3dbec75864
commit
3bbf421043
|
@ -1,7 +1,6 @@
|
||||||
! Copyright (C) 2004, 2009 Slava Pestov, Daniel Ehrenberg.
|
! Copyright (C) 2004, 2009 Slava Pestov, Daniel Ehrenberg.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: alien.strings continuations init io io.backend
|
USING: alien.strings init io io.backend io.encodings io.pathnames
|
||||||
io.encodings io.encodings.utf8 io.files.private io.pathnames
|
|
||||||
kernel kernel.private namespaces sequences splitting system ;
|
kernel kernel.private namespaces sequences splitting system ;
|
||||||
IN: io.files
|
IN: io.files
|
||||||
|
|
||||||
|
@ -92,7 +91,7 @@ PRIVATE>
|
||||||
|
|
||||||
[
|
[
|
||||||
cwd current-directory set-global
|
cwd current-directory set-global
|
||||||
OBJ-IMAGE special-object alien>native-string cwd prepend-path \ image-path set-global
|
OBJ-IMAGE special-object alien>native-string \ image-path set-global
|
||||||
OBJ-EXECUTABLE special-object alien>native-string cwd prepend-path \ vm-path set-global
|
OBJ-EXECUTABLE special-object alien>native-string \ vm-path set-global
|
||||||
init-resource-path
|
init-resource-path
|
||||||
] "io.files" add-startup-hook
|
] "io.files" add-startup-hook
|
||||||
|
|
Loading…
Reference in New Issue