Kawa --max-errors

More changes

yomigana:edwin (master)$ ~/git/Kawa/bin/kawa --max-errors=200 run-tests.scm
java.lang.Error: skipping tests max:200
	at gnu.text.SourceMessages.printAll(SourceMessages.java:203)
	at gnu.text.SourceMessages.checkErrors(SourceMessages.java:235)
	at gnu.expr.ModuleExp.evalModule1(ModuleExp.java:233)
	at gnu.expr.ModuleExp.evalModule(ModuleExp.java:204)
	at kawa.Shell.run(Shell.java:289)
	at kawa.Shell.runFile(Shell.java:551)
	at kawa.standard.load.apply2(load.java:67)
	at kawa.standard.load.apply1(load.java:27)
	at gnu.mapping.Procedure1or2.applyToObject(Procedure1or2.java:64)
	at gnu.mapping.Procedure.applyToConsumerDefault(Procedure.java:75)
	at gnu.mapping.CallContext.runUntilDone(CallContext.java:586)
	at run-tests.run(run-tests.scm:1)
	at gnu.expr.ModuleExp.evalModule2(ModuleExp.java:289)
	at gnu.expr.CompiledModule.evalModule(CompiledModule.java:42)
	at gnu.expr.CompiledModule.evalModule(CompiledModule.java:60)
	at kawa.Shell.runFile(Shell.java:571)
	at kawa.Shell.runFileOrClass(Shell.java:474)
	at kawa.repl.processArgs(repl.java:710)
	at kawa.repl.main(repl.java:830)
/Users/duncan/git/duncanmak/edwin/edwin/struct.scm:266:26: warning - no declaration seen for EDWIN-VARIABLE$tab-width
/Users/duncan/git/duncanmak/edwin/edwin/struct.scm:269:26: warning - no declaration seen for EDWIN-VARIABLE$char-image-strings
/Users/duncan/git/duncanmak/edwin/edwin/struct.scm:272:26: warning - no declaration seen for EDWIN-VARIABLE$case-fold-search
/Users/duncan/git/duncanmak/edwin/edwin/struct.scm:275:26: warning - no declaration seen for EDWIN-VARIABLE$syntax-table
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:77:6: warning - no declaration seen for disable-group-undo!
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:79:3: warning - no declaration seen for enable-group-undo!
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:83:29: warning - no declaration seen for EDWIN-VARIABLE$mark-ring-maximum
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:98:5: warning - no declaration seen for window-modeline-event!
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:107:8: warning - no declaration seen for with-editor-interrupts-disabled
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:121:31: warning - no declaration seen for EDWIN-VARIABLE$editor-default-mode
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:150:11: warning - no declaration seen for current-buffer?
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:151:4: warning - no declaration seen for current-point
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:156:6: warning - no declaration seen for window-point
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:203:8: warning - no declaration seen for window-visible?
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:208:3: warning - no declaration seen for screen-x-size
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:208:18: warning - no declaration seen for selected-screen
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:209:18: warning - no declaration seen for window-x-size
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:215:3: warning - no declaration seen for screen-x-size
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:215:18: warning - no declaration seen for selected-screen
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:234:58: warning - no declaration seen for current-buffer
/Users/duncan/git/duncanmak/edwin/edwin/struct.scm: note - skipped 0 errors, 124 warnings, 0 notes
%%%% Starting test pathname-tests  (Writing full log to "pathname-tests.log")
# of expected passes      2
%%%% Starting test mit-scheme-test-strings  (Writing full log to "mit-scheme-test-strings.log")
# of expected passes      2
%%%% Starting test variable-tests  (Writing full log to "variable-tests.log")
# of expected passes      1
%%%% Starting test rb-tree  (Writing full log to "rb-tree.log")
# of expected passes      2

normal run

yomigana:edwin (master)$ ~/git/Kawa/bin/kawa run-tests.scm
/Users/duncan/git/duncanmak/edwin/edwin/struct.scm:266:26: warning - no declaration seen for EDWIN-VARIABLE$tab-width
/Users/duncan/git/duncanmak/edwin/edwin/struct.scm:269:26: warning - no declaration seen for EDWIN-VARIABLE$char-image-strings
/Users/duncan/git/duncanmak/edwin/edwin/struct.scm:272:26: warning - no declaration seen for EDWIN-VARIABLE$case-fold-search
/Users/duncan/git/duncanmak/edwin/edwin/struct.scm:275:26: warning - no declaration seen for EDWIN-VARIABLE$syntax-table
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:77:6: warning - no declaration seen for disable-group-undo!
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:79:3: warning - no declaration seen for enable-group-undo!
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:83:29: warning - no declaration seen for EDWIN-VARIABLE$mark-ring-maximum
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:98:5: warning - no declaration seen for window-modeline-event!
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:107:8: warning - no declaration seen for with-editor-interrupts-disabled
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:121:31: warning - no declaration seen for EDWIN-VARIABLE$editor-default-mode
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:150:11: warning - no declaration seen for current-buffer?
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:151:4: warning - no declaration seen for current-point
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:156:6: warning - no declaration seen for window-point
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:203:8: warning - no declaration seen for window-visible?
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:208:3: warning - no declaration seen for screen-x-size
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:208:18: warning - no declaration seen for selected-screen
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:209:18: warning - no declaration seen for window-x-size
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:215:3: warning - no declaration seen for screen-x-size
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:215:18: warning - no declaration seen for selected-screen
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:234:58: warning - no declaration seen for current-buffer
/Users/duncan/git/duncanmak/edwin/edwin/struct.scm: note - skipped 0 errors, 124 warnings, 0 notes
%%%% Starting test pathname-tests  (Writing full log to "pathname-tests.log")
# of expected passes      2
%%%% Starting test mit-scheme-test-strings  (Writing full log to "mit-scheme-test-strings.log")
# of expected passes      2
%%%% Starting test variable-tests  (Writing full log to "variable-tests.log")
# of expected passes      1
%%%% Starting test rb-tree  (Writing full log to "rb-tree.log")
# of expected passes      2

SourceMessages.patch

diff --git a/gnu/text/SourceMessages.java b/gnu/text/SourceMessages.java
index b6a620b42..0643d9a4e 100644
--- a/gnu/text/SourceMessages.java
+++ b/gnu/text/SourceMessages.java
@@ -199,6 +199,9 @@ public class SourceMessages extends SourceLocator.Simple {
                 err.println(out, stripDirectories);
         }
         if (skippedErrors + skippedWarnings + skippedInfo > 0) {
+
+                new Error("skipping tests max:"+gnu.expr.Compilation.maxErrors()).printStackTrace();
+
             SourceError err =
                 new SourceError('i', firstError.getFileName(), 0, 0,
                                 "skipped "+skippedErrors+" errors, "

with --max-errors=200

yomigana:edwin (master)$ ~/git/Kawa/bin/kawa --max-errors=200 run-tests.scm
/Users/duncan/git/duncanmak/edwin/edwin/struct.scm:266:26: warning - no declaration seen for EDWIN-VARIABLE$tab-width
/Users/duncan/git/duncanmak/edwin/edwin/struct.scm:269:26: warning - no declaration seen for EDWIN-VARIABLE$char-image-strings
/Users/duncan/git/duncanmak/edwin/edwin/struct.scm:272:26: warning - no declaration seen for EDWIN-VARIABLE$case-fold-search
/Users/duncan/git/duncanmak/edwin/edwin/struct.scm:275:26: warning - no declaration seen for EDWIN-VARIABLE$syntax-table
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:77:6: warning - no declaration seen for disable-group-undo!
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:79:3: warning - no declaration seen for enable-group-undo!
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:83:29: warning - no declaration seen for EDWIN-VARIABLE$mark-ring-maximum
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:98:5: warning - no declaration seen for window-modeline-event!
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:107:8: warning - no declaration seen for with-editor-interrupts-disabled
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:121:31: warning - no declaration seen for EDWIN-VARIABLE$editor-default-mode
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:150:11: warning - no declaration seen for current-buffer?
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:151:4: warning - no declaration seen for current-point
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:156:6: warning - no declaration seen for window-point
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:203:8: warning - no declaration seen for window-visible?
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:208:3: warning - no declaration seen for screen-x-size
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:208:18: warning - no declaration seen for selected-screen
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:209:18: warning - no declaration seen for window-x-size
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:215:3: warning - no declaration seen for screen-x-size
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:215:18: warning - no declaration seen for selected-screen
/Users/duncan/git/duncanmak/edwin/edwin/buffer.scm:234:58: warning - no declaration seen for current-buffer
/Users/duncan/git/duncanmak/edwin/edwin/struct.scm: note - skipped 0 errors, 124 warnings, 0 notes
%%%% Starting test pathname-tests  (Writing full log to "pathname-tests.log")
# of expected passes      2
%%%% Starting test mit-scheme-test-strings  (Writing full log to "mit-scheme-test-strings.log")
# of expected passes      2
%%%% Starting test variable-tests  (Writing full log to "variable-tests.log")
# of expected passes      1
%%%% Starting test rb-tree  (Writing full log to "rb-tree.log")
# of expected passes      2