From 526ff277d0aa0ec11711b760f85f4d10ffcbee34 Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Sun, 25 Mar 2012 14:02:16 -0700 Subject: [PATCH] parse -resource-path= during bootstrap --- core/bootstrap/stage1.factor | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/core/bootstrap/stage1.factor b/core/bootstrap/stage1.factor index 6b6371f54c..f77383cf9d 100644 --- 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