Improve resource-path behavior on NetBSD and OpenBSD

db4
Slava Pestov 2008-09-17 22:40:51 -05:00
parent 1a865f89ac
commit 3a83c1e895
1 changed files with 7 additions and 3 deletions

View File

@ -192,11 +192,15 @@ PRIVATE>
SYMBOL: current-directory
[ cwd current-directory set-global ] "io.files" add-init-hook
[
cwd current-directory set-global
image parent-directory "./" ?head
[ cwd prepend-path ] when
"resource-path" set
] "io.files" add-init-hook
: resource-path ( path -- newpath )
"resource-path" get [ image parent-directory ] unless*
prepend-path ;
"resource-path" get prepend-path ;
: (normalize-path) ( path -- path' )
"resource:" ?head [