From 50a9c810166781c12ab970d042642606dfb0d328 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sat, 25 Aug 2018 21:31:14 -0400 Subject: 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. --- chickadee.scm | 9 --------- 1 file changed, 9 deletions(-) (limited to 'chickadee.scm') 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)))))) -- cgit v1.2.3