Remove custom backtrace display.

Always printing a backtrace caused double backtraces to be printed
when using the default error handler that just re-throws the error.

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