don't re-print the error by default in call-with-error-handling

* module/system/repl/error-handling.scm (call-with-error-handling):
  Previous post-error changed to "report"; now "catch", the default,
  doesn't re-print the error.

diff --git a/module/system/repl/error-handling.scm b/module/system/repl/error-handling.scm
index 6a2c0bc..db0beeb 100644 (file)
--- a/module/system/repl/error-handling.scm
+++ b/module/system/repl/error-handling.scm
@@ -50,7 +50,7 @@
       (lambda () (%start-stack #t thunk))
 
       (case post-error
-        ((catch)
+        ((report)
          (lambda (key . args)
            (if (memq key pass-keys)
                (apply throw key args)
@@ -67,6 +67,10 @@
                    (format err "\nERROR: uncaught throw to `~a', args: ~a\n"
                            key args)))
                  (if #f #f)))))
+        ((catch)
+         (lambda (key . args)
+           (if (memq key pass-keys)
+               (apply throw key args))))
         (else
          (if (procedure? post-error)
              post-error ; a handler proc