Remove custom backtrace display.
authorDavid Thompson <dthompson2@worcester.edu>
Sun, 26 Aug 2018 01:31:14 +0000 (21:31 -0400)
committerDavid Thompson <dthompson2@worcester.edu>
Sun, 26 Aug 2018 01:31:14 +0000 (21:31 -0400)
Always printing a backtrace caused double backtraces to be printed
when using the default error handler that just re-throws the error.

chickadee.scm

index 4176b5d..52cbcce 100644 (file)
 ;;; 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))))))