From f8c8873d761e589a6b7ebd2aae7355c16ae1c0a9 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@member.fsf.org>
Date: Sat, 6 Jul 2013 21:48:04 -0400
Subject: Update example code in README.

---
 README.org | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/README.org b/README.org
index 460abf6..491aade 100644
--- a/README.org
+++ b/README.org
@@ -21,8 +21,7 @@
    Here is the simplest Guile-2d application (so far).
 
    #+BEGIN_SRC scheme
-    (use-modules ((sdl sdl) #:prefix SDL:)
-                 (figl gl)
+    (use-modules (figl gl)
                  (2d sprite)
                  (2d game-loop)
                  (2d window))
@@ -35,8 +34,7 @@
       (display key) (newline)
       (case key
         ;; Quit program when ESCAPE or Q is pressed.
-        ;; For now we have to use the SDL keycodes, but not for long!
-        ((SDLK_ESCAPE SDLK_q)
+        ((any-equal? key (keycode escape) (keycode q)
          (close-window)
          (quit))))
 
-- 
cgit v1.2.3