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

jonenst · Apr 28, 2014 · f758367 · f758367
1 parent 0da5f2b
commit f758367
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/extra/mason/test/test.factor b/extra/mason/test/test.factor
@@ -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