summaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
Diffstat (limited to 'examples')
-rw-r--r--examples/audio.scm2
-rw-r--r--examples/model.scm2
-rw-r--r--examples/tiled.scm2
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)))