From d286c8ce342abc6b647ccf5a68b292fe13ec5cb8 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Thu, 15 Jul 2010 12:47:58 +0200
Subject: [PATCH] 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.
---
 module/system/repl/error-handling.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/module/system/repl/error-handling.scm b/module/system/repl/error-handling.scm
index 6a2c0bc29..db0beeb78 100644
--- 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