error: Pass error key and args to error hook.

* chickadee.scm (call-with-error-handling): Run hook with error key
and args.

1 files 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))))))