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

diff --git a/extra/mason/test/test.factor b/extra/mason/test/test.factor
index 0d7ac92cef842bb3ec14a4e9eb6148fc1f414a44..fd139d8d8a23f6d57b8dd5cf4c0610ce0e88c9eb 100644 (file)
--- 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