summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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