diff options
author | Andy Wingo <wingo@pobox.com> | 2008-10-09 11:10:25 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2008-10-09 11:10:25 +0200 |
commit | 1bb6b839ecd06f3a487c792fb317f000a557f771 (patch) | |
tree | 7d60aab221581517563c1356a2cca4a7874b07bd | |
parent | 5a9634892fb0f68693654d8a59fb75b5747118dc (diff) | |
download | guile-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.scm | 3 |
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 |