From 3a83c1e895c76e72f66bfe760bd404fe7002d95f Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 17 Sep 2008 22:40:51 -0500
Subject: [PATCH 1/3] Improve resource-path behavior on NetBSD and OpenBSD

---
 core/io/files/files.factor | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/core/io/files/files.factor b/core/io/files/files.factor
index e52799d10a..6a04410559 100755
--- a/core/io/files/files.factor
+++ b/core/io/files/files.factor
@@ -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 [

From 34faf1f78609c0831276bb755629a21727d0b0c8 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 17 Sep 2008 23:28:54 -0500
Subject: [PATCH 2/3] Fix cache polution issue

---
 basis/bootstrap/image/image.factor | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/basis/bootstrap/image/image.factor b/basis/bootstrap/image/image.factor
index 9284728a7a..f18232b7c4 100755
--- a/basis/bootstrap/image/image.factor
+++ b/basis/bootstrap/image/image.factor
@@ -412,14 +412,14 @@ M: quotation '
     all-words [ emit-word ] each ;
 
 : emit-global ( -- )
-    [
-        {
-            dictionary source-files builtins
-            update-map implementors-map class<=-cache
-            class-not-cache classes-intersect-cache class-and-cache
-            class-or-cache
-        } [ dup get swap bootstrap-word set ] each
-    ] H{ } make-assoc
+    {
+        dictionary source-files builtins
+        update-map implementors-map
+    } [ [ bootstrap-word ] [ get ] bi ] H{ } map>assoc
+    {
+        class<=-cache class-not-cache classes-intersect-cache
+        class-and-cache class-or-cache
+    } [ H{ } clone ] H{ } map>assoc assoc-union
     bootstrap-global set
     bootstrap-global emit-userenv ;
 

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 3/3] 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 )