diff options
| -rw-r--r-- | catbird/kernel.scm | 11 |
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>)) |