Better fix for *BSD resource path
parent
34faf1f786
commit
562118e158
|
@ -26,7 +26,6 @@ IN: bootstrap.image
|
|||
"x86.32"
|
||||
"x86.64"
|
||||
"linux-ppc" "macosx-ppc"
|
||||
! "arm"
|
||||
} ;
|
||||
|
||||
<PRIVATE
|
||||
|
|
|
@ -194,9 +194,7 @@ SYMBOL: current-directory
|
|||
|
||||
[
|
||||
cwd current-directory set-global
|
||||
image parent-directory "./" ?head
|
||||
[ cwd prepend-path ] when
|
||||
"resource-path" set
|
||||
image parent-directory cwd prepend-path "resource-path" set
|
||||
] "io.files" add-init-hook
|
||||
|
||||
: resource-path ( path -- newpath )
|
||||
|
|
Loading…
Reference in New Issue