Better fix for *BSD resource path

2008-09-18 00:20:51 -05:00 · 2008-09-18 00:20:51 -05:00 · 562118e158
parent 34faf1f786
commit 562118e158
2 changed files with 1 additions and 4 deletions
--- a/basis/bootstrap/image/image.factor
+++ b/basis/bootstrap/image/image.factor
@ -26,7 +26,6 @@ IN: bootstrap.image
        "x86.32"
        "x86.64"
        "linux-ppc" "macosx-ppc"
-        ! "arm"
    } ;

 <PRIVATE
--- a/core/io/files/files.factor
+++ b/core/io/files/files.factor
@ -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 )