From 88c9483343689d30566a652d77b5601a7b1b03bb Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Mon, 21 Nov 2011 14:24:50 -0800
Subject: [PATCH] io.files: use initialize to set resource-path If a resource
 path is already set in the image, don't change it. Should make #364 work a
 bit more as expected, and let us set the resource path for deployed Mac OS X
 bundles.

---
 core/io/files/files.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/io/files/files.factor b/core/io/files/files.factor
index d1ff0ffc77..423bcb4a8a 100644
--- a/core/io/files/files.factor
+++ b/core/io/files/files.factor
@@ -65,5 +65,5 @@ PRIVATE>
     cwd current-directory set-global
     OBJ-IMAGE special-object alien>native-string cwd prepend-path \ image set-global
     OBJ-EXECUTABLE special-object alien>native-string cwd prepend-path \ vm set-global
-    image parent-directory "resource-path" set-global
+    "resource-path" [ image parent-directory ] initialize
 ] "io.files" add-startup-hook