summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2008-10-09 11:10:25 +0200
committerAndy Wingo <wingo@pobox.com>2008-10-09 11:10:25 +0200
commit1bb6b839ecd06f3a487c792fb317f000a557f771 (patch)
tree7d60aab221581517563c1356a2cca4a7874b07bd
parent5a9634892fb0f68693654d8a59fb75b5747118dc (diff)
downloadguile-1bb6b839ecd06f3a487c792fb317f000a557f771.tar.gz
handle throws to unknown keys in the repl
* module/system/repl/repl.scm (default-catch-handler): Don't rethrow if we don't know the key, just print an error.
-rw-r--r--module/system/repl/repl.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/module/system/repl/repl.scm b/module/system/repl/repl.scm
index 1e558e79c..b4422c839 100644
--- a/module/system/repl/repl.scm
+++ b/module/system/repl/repl.scm
@@ -88,7 +88,8 @@
(set! stack-saved? #f)
(force-output cep)))
(else
- (apply bad-throw args))))
+ (format (current-error-port) "\nERROR: uncaught throw to `~a', args: ~a\n"
+ (car args) (cdr args)))))
(define (call-with-backtrace thunk)
(catch #t