From bbb9f814eff0683dffdbbf6c209db10fc2c78c84 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Thu, 3 May 2018 23:49:34 -0400 Subject: error: Pass error key and args to error hook. * chickadee.scm (call-with-error-handling): Run hook with error key and args. --- chickadee.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/chickadee.scm b/chickadee.scm index e604113..512aa4a 100644 --- a/chickadee.scm +++ b/chickadee.scm @@ -66,7 +66,7 @@ (define controller-press-hook (make-hook 2)) (define controller-release-hook (make-hook 2)) (define controller-move-hook (make-hook 3)) -(define error-hook (make-hook 1)) +(define error-hook (make-hook 3)) (define open-controller (@@ (chickadee input controller) open-controller)) (define close-controller (@@ (chickadee input controller) close-controller)) @@ -91,7 +91,7 @@ (apply throw key args) (begin (display-game-loop-error stack key args) - (run-hook error-hook stack)))) + (run-hook error-hook stack key args)))) (lambda (key . args) (set! stack (make-stack #t 3)))))) -- cgit v1.2.3