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

mason.test: Check the user-init-errors so we get a fixable error.

db4
Doug Coleman 2014-04-28 00:25:54 -07:00
parent 63b5886337
commit 32cd600ffb
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/mason/test/test.factor
View File

@ -68,10 +68,14 @@ M: method word-vocabulary "method-generic" word-prop word-vocabulary ;
".factor-mason-rc" rc-path try-user-init
] with-variable ;
: check-user-init-errors ( -- ? )
user-init-errors get-global assoc-empty?
[ f ] [ :user-init-errors t ] if ;
: do-all ( -- )
f parser-quiet? set-global
".." [
run-mason-rc
run-mason-rc check-user-init-errors [ 1 exit ] when
bootstrap-time get boot-time-file to-file
check-boot-image [ 1 exit ] when
[ do-load ] benchmark load-time-file to-file