summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2013-06-25 22:20:04 -0400
committerDavid Thompson <dthompson2@worcester.edu>2013-06-25 22:20:04 -0400
commitd0d08c004ea00514c8a0bb36397dab4fffc8e479 (patch)
tree38f90fa331129ab37d30db1e3d20a3e04b636854
parent286166217fc4a956cbbf1664637987d054c979cc (diff)
Fix particles example.
-rw-r--r--examples/particles.scm10
1 files changed, 5 insertions, 5 deletions
diff --git a/examples/particles.scm b/examples/particles.scm
index a446bff..39e2ae7 100644
--- a/examples/particles.scm
+++ b/examples/particles.scm
@@ -10,7 +10,8 @@
(2d game-loop)
(2d window)
(2d vector)
- (2d input))
+ (2d input)
+ (2d helpers))
(set! *random-state* (random-state-from-platform))
@@ -76,11 +77,10 @@
(set-render-callback (lambda () (render)))
(set-update-callback (lambda () (update)))
-(set-key-down-callback (lambda (key) (key-down key)))
+(set-key-down-callback (lambda (key mod unicode) (key-down key mod unicode)))
-(define (key-down key)
- (cond ((or (= key (keycode escape))
- (= key (keycode q)))
+(define (key-down key mod unicode)
+ (cond ((any-equal? key (keycode escape) (keycode q))
(close-window)
(quit))))