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] 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 [