summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson@member.fsf.org>2013-07-06 21:48:04 -0400
committerDavid Thompson <dthompson@member.fsf.org>2013-07-06 21:48:04 -0400
commitf8c8873d761e589a6b7ebd2aae7355c16ae1c0a9 (patch)
tree0bb869abb7e90ad8357cd54171eba88814f4c19c
parent6203c30af8624eff342a4803d51f4f94d79c4c24 (diff)
Update example code in README.
-rw-r--r--README.org6
1 files 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))))