diff options
| author | David Thompson <dthompson@member.fsf.org> | 2013-07-06 21:48:04 -0400 |
|---|---|---|
| committer | David Thompson <dthompson@member.fsf.org> | 2013-07-06 21:48:04 -0400 |
| commit | f8c8873d761e589a6b7ebd2aae7355c16ae1c0a9 (patch) | |
| tree | 0bb869abb7e90ad8357cd54171eba88814f4c19c | |
| parent | 6203c30af8624eff342a4803d51f4f94d79c4c24 (diff) | |
Update example code in README.
| -rw-r--r-- | README.org | 6 |
1 files changed, 2 insertions, 4 deletions
@@ -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)))) |