summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--chickadee.scm9
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))))))