From d0d08c004ea00514c8a0bb36397dab4fffc8e479 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Tue, 25 Jun 2013 22:20:04 -0400 Subject: Fix particles example. --- examples/particles.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'examples') 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)))) -- cgit v1.2.3