From 3ae0550bc73ab825a65d98eeda1c2d2431c4ecfb Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sun, 21 Jul 2013 22:22:23 -0400
Subject: Update examples to reflect changes in keyboard events.

---
 examples/coroutine.scm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'examples/coroutine.scm')

diff --git a/examples/coroutine.scm b/examples/coroutine.scm
index bb3f6ab..d2a53d3 100644
--- a/examples/coroutine.scm
+++ b/examples/coroutine.scm
@@ -6,8 +6,6 @@
              (2d sprite)
              (2d game-loop)
              (2d window)
-             (2d vector)
-             (2d input)
              (2d helpers)
              (2d agenda)
              (2d coroutine))
@@ -19,7 +17,7 @@
 (define sprite #f)
 
 (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