diff options
| author | David Thompson <dthompson2@worcester.edu> | 2018-08-25 21:31:14 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2018-08-25 21:31:14 -0400 |
| commit | 50a9c810166781c12ab970d042642606dfb0d328 (patch) | |
| tree | 9e7ad369ebf95b6b252dab96dd55cb904a044d4a | |
| parent | 8163e4b415bcf1f6a696ccbf06e3136aea1a261f (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.scm | 9 |
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)))))) |