parse -resource-path= during bootstrap

diff --git a/core/bootstrap/stage1.factor b/core/bootstrap/stage1.factor
index 6b6371f54c6859cc25dc47a2ce175c34a0265ae7..f77383cf9d6a96c6d9be67d1473d814878f0eb54 100644 (file)
--- a/core/bootstrap/stage1.factor
+++ b/core/bootstrap/stage1.factor
@@ -3,7 +3,8 @@
 USING: arrays assocs continuations debugger generic hashtables
 init io io.files kernel kernel.private make math memory
 namespaces parser parser.notes prettyprint sequences splitting
-system vectors vocabs vocabs.loader words destructors ;
+system vectors vocabs vocabs.loader words destructors
+io.encodings.utf8 alien.strings ;
 QUALIFIED: bootstrap.image.private
 IN: bootstrap.stage1
 
@@ -37,6 +38,10 @@ load-help? off
     [
         f parser-quiet? set-global
 
+        OBJ-ARGS special-object
+        [ utf8 alien>string "-resource-path=" ?head [ drop f ] unless ] map-find drop
+        [ "resource-path" set-global ] when*
+
         "resource:basis/bootstrap/stage2.factor"
         dup exists? [
             run-file