kernel: Improve error handling.

1 files changed, 10 insertions, 1 deletions

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 <kernel>))