diff options
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/audio.scm | 2 | ||||
| -rw-r--r-- | examples/model.scm | 2 | ||||
| -rw-r--r-- | examples/tiled.scm | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/examples/audio.scm b/examples/audio.scm index c9885a2..4ea697f 100644 --- a/examples/audio.scm +++ b/examples/audio.scm @@ -49,7 +49,7 @@ Q - quit") (draw-text status-message status-position)) (draw-text instructions instructions-position)) -(define (key-press key scancode modifiers repeat?) +(define (key-press key modifiers repeat?) (match key ('q (abort-game)) ('space (source-toggle music-source)) diff --git a/examples/model.scm b/examples/model.scm index d345988..f7ef9f7 100644 --- a/examples/model.scm +++ b/examples/model.scm @@ -56,7 +56,7 @@ (set! y-rotation (+ y-rotation 0.03)) (matrix4-rotate-y! model-matrix y-rotation)) -(define (key-press key scancode modifiers repeat?) +(define (key-press key modifiers repeat?) (cond ((eq? key 'q) (abort-game)) diff --git a/examples/tiled.scm b/examples/tiled.scm index e1bf22a..c64f7b6 100644 --- a/examples/tiled.scm +++ b/examples/tiled.scm @@ -20,7 +20,7 @@ (draw-text text text-position)) (define inc 8.0) -(define (key-press key scancode modifiers repeat?) +(define (key-press key modifiers repeat?) (match key ('up (set-vec2-y! camera (- (vec2-y camera) inc))) ('down (set-vec2-y! camera (+ (vec2-y camera) inc))) |