diff options
| -rw-r--r-- | chickadee.scm | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/chickadee.scm b/chickadee.scm index 4176b5d..52cbcce 100644 --- a/chickadee.scm +++ b/chickadee.scm @@ -25,20 +25,11 @@ ;;; Error handling ;;; -(define (display-game-loop-error stack key args) - (let ((port (current-error-port))) - (display "Backtrace:\n" port) - (display-backtrace stack port) - (newline port) - (apply display-error (stack-ref stack 0) port args) - (newline port))) - (define (call-with-error-handling handler thunk) (let ((stack #f)) (catch #t thunk (lambda (key . args) - (display-game-loop-error stack key args) (error stack key args)) (lambda (key . args) (set! stack (make-stack #t 3)))))) |