From ba0c8932395a05187824ce2835eb33331967a45a Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Mon, 16 Nov 2020 17:23:16 -0500
Subject: Remove scancode argument from key-press and key-release handlers.

---
 examples/audio.scm | 2 +-
 examples/model.scm | 2 +-
 examples/tiled.scm | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'examples')

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)))
-- 
cgit v1.2.3