steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
core/io/files/files.factor
View File

@ -192,11 +192,15 @@ PRIVATE>
SYMBOL: current-directory 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 ( path -- newpath )
"resource-path" get [ image parent-directory ] unless* "resource-path" get prepend-path ;
prepend-path ;
: (normalize-path) ( path -- path' ) : (normalize-path) ( path -- path' )
"resource:" ?head [ "resource:" ?head [