Call notify-error-observers

basis/compiler/errors/errors.factor

@@ -48,7 +48,8 @@ T{ error-type
 
 : compiler-error ( error word -- )
     compiler-errors get-global pick
-    [ [ [ <compiler-error> ] keep ] dip set-at ] [ delete-at drop ] if ;
+    [ [ [ <compiler-error> ] keep ] dip set-at ] [ delete-at drop ] if
+    notify-error-observers ;
 
 : compiler-errors. ( type -- )
     errors-of-type values errors. ;

basis/help/lint/lint.factor

@@ -33,10 +33,9 @@ M: help-lint-error error-type drop +help-lint-failure+ ;
 PRIVATE>
 
 : help-lint-error ( error topic -- )
-    over [
-        [ <help-lint-error> ] keep
-        lint-failures get set-at
-    ] [ nip lint-failures get delete-at ] if ;
+    lint-failures get pick
+    [ [ [ <help-lint-error> ] keep ] dip set-at ] [ delete-at drop ] if
+    notify-error-observers ;
 
 <PRIVATE
 

basis/tools/test/test.factor

@@ -39,7 +39,8 @@ T{ error-type
 
 : failure ( error experiment file line# -- )
     "--> test failed!" print
-    <test-failure> test-failures get push ;
+    <test-failure> test-failures get push
+    notify-error-observers ;
 
 SYMBOL: file