summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2018-08-25 21:31:14 -0400
committerDavid Thompson <dthompson2@worcester.edu>2018-08-25 21:31:14 -0400
commit50a9c810166781c12ab970d042642606dfb0d328 (patch)
tree9e7ad369ebf95b6b252dab96dd55cb904a044d4a
parent8163e4b415bcf1f6a696ccbf06e3136aea1a261f (diff)
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.
-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))))))