io.files: back out resource-path change

It's too brittle against varying current directories or the Factor directory being moved.

diff --git a/core/io/files/files.factor b/core/io/files/files.factor
index 423bcb4a8ae4b2de2c95acdcffe05f578bebda91..d1ff0ffc774270af445f866eab8f1105e836f250 100644 (file)
--- 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
-    "resource-path" [ image parent-directory ] initialize
+    image parent-directory "resource-path" set-global
 ] "io.files" add-startup-hook