steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

parse -resource-path= during bootstrap

db4
Joe Groff 2012-03-25 14:02:16 -07:00
parent 442dae75ea
commit 526ff277d0
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
core/bootstrap/stage1.factor
View File

@ -3,7 +3,8 @@
USING: arrays assocs continuations debugger generic hashtables USING: arrays assocs continuations debugger generic hashtables
init io io.files kernel kernel.private make math memory init io io.files kernel kernel.private make math memory
namespaces parser parser.notes prettyprint sequences splitting 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 QUALIFIED: bootstrap.image.private
IN: bootstrap.stage1 IN: bootstrap.stage1
@ -37,6 +38,10 @@ load-help? off
[ [
f parser-quiet? set-global 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" "resource:basis/bootstrap/stage2.factor"
dup exists? [ dup exists? [
run-file run-file