From 3ae0550bc73ab825a65d98eeda1c2d2431c4ecfb Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 21 Jul 2013 22:22:23 -0400 Subject: Update examples to reflect changes in keyboard events. --- examples/particles.scm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'examples/particles.scm') diff --git a/examples/particles.scm b/examples/particles.scm index 8e6d11e..555e185 100644 --- a/examples/particles.scm +++ b/examples/particles.scm @@ -2,14 +2,12 @@ (use-modules ((sdl sdl) #:prefix SDL:) (figl gl) (srfi srfi-1) - (srfi srfi-2) (srfi srfi-9) (ice-9 format) (2d sprite) (2d game-loop) (2d window) (2d vector) - (2d input) (2d helpers)) (set! *random-state* (random-state-from-platform)) @@ -69,7 +67,7 @@ (set-key-down-callback (lambda (key mod unicode) (key-down key mod unicode))) (define (key-down key mod unicode) - (cond ((any-equal? key (keycode escape) (keycode q)) + (cond ((any-equal? key 'escape 'q) (close-window) (quit)))) -- cgit v1.2.3