diff options
-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 |