summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2018-05-03 23:49:34 -0400
committerDavid Thompson <dthompson2@worcester.edu>2018-05-03 23:52:13 -0400
commitbbb9f814eff0683dffdbbf6c209db10fc2c78c84 (patch)
treed12c3d956ae1c88b135601454552991ecb10b108
parent7eb9276090e08f89604e67818ebda27a97847031 (diff)
error: Pass error key and args to error hook.
* chickadee.scm (call-with-error-handling): Run hook with error key and args.
-rw-r--r--chickadee.scm4
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))))))