From 75ec9f00916227054ca092c6e38cff1fda22173f Mon Sep 17 00:00:00 2001 From: David Thompson Date: Tue, 8 Nov 2022 20:56:19 -0500 Subject: kernel: Improve error handling. --- catbird/kernel.scm | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/catbird/kernel.scm b/catbird/kernel.scm index 08d26ba..413e1b4 100644 --- a/catbird/kernel.scm +++ b/catbird/kernel.scm @@ -304,12 +304,21 @@ (set! (stack kernel) s) (set! (exception kernel) e) (set! (debugging? kernel) #t) + (let ((port (current-error-port))) + (display "an error has occurred!\n\n" port) + (display "Backtrace:\n" port) + (display-backtrace s port) + (newline port) + (display (error-message kernel) port) + (newline port)) (display "waiting for developer to debug..." (current-error-port)) (while (debugging? kernel) (poll-coop-repl-server (repl kernel)) (usleep 160000) #t) - (set-window-title! window title)) + (set-window-title! window title) + (set! (stack kernel) #f) + (set! (exception kernel) #f)) (raise-exception e))) (define-method (error-message (kernel )) -- cgit v1.2.3