io.files: use initialize to set resource-path

If a resource path is already set in the image, don't change it. Should make  work a bit more as expected, and let us set the resource path for deployed Mac OS X bundles.
db4
Joe Groff 2011-11-21 14:24:50 -08:00
parent 80bd1aef1c
commit 88c9483343
1 changed files with 1 additions and 1 deletions
core/io/files

View File

@ -65,5 +65,5 @@ PRIVATE>
cwd current-directory set-global
OBJ-IMAGE special-object alien>native-string cwd prepend-path \ image set-global
OBJ-EXECUTABLE special-object alien>native-string cwd prepend-path \ vm set-global
image parent-directory "resource-path" set-global
"resource-path" [ image parent-directory ] initialize
] "io.files" add-startup-hook