command-line: Clear errors for rc files before running.

Dont' forget to notify observers or else the f3 window will be clear
but the Listener window bottom banner will still show the errors.

Fixes #2537.

diff --git a/basis/command-line/command-line.factor b/basis/command-line/command-line.factor
index 18ffec89255bd797af5e0f5e85d0fb1137c2d2b7..0bf66894f0d5ee0c05b4d61ee724221684d1cd4c 100644 (file)
--- a/basis/command-line/command-line.factor
+++ b/basis/command-line/command-line.factor
@@ -24,7 +24,12 @@ SYMBOL: command-line
 : (command-line) ( -- args )
     OBJ-ARGS special-object sift [ alien>native-string ] map ;
 
+: delete-user-init-errors ( file -- )
+    user-init-errors get delete-at* nip
+    [ notify-error-observers ] when ;
+
 : try-user-init ( file -- )
+    [ delete-user-init-errors ] keep
     "user-init" get swap '[
         _ [ ?run-file ] [
             <user-init-error>