From 562118e158bb33f2c848a8777c2d48d60ba8c12d Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Thu, 18 Sep 2008 00:20:51 -0500
Subject: [PATCH] Better fix for *BSD resource path

---
 basis/bootstrap/image/image.factor | 1 -
 core/io/files/files.factor         | 4 +---
 2 files changed, 1 insertion(+), 4 deletions(-)

diff --git a/basis/bootstrap/image/image.factor b/basis/bootstrap/image/image.factor
index f18232b7c4..f3f570b462 100755
--- 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
diff --git a/core/io/files/files.factor b/core/io/files/files.factor
index 6a04410559..58a08ed30c 100755
--- 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 )