From 2137a5b4db931325d46197859a06a6f218aa0ad9 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sun, 24 Oct 2021 12:40:11 -0400
Subject: Add SDL_GetScancodeFromKey binding.

---
 sdl2/bindings.scm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/sdl2/bindings.scm b/sdl2/bindings.scm
index ac16481..5a63636 100644
--- a/sdl2/bindings.scm
+++ b/sdl2/bindings.scm
@@ -973,6 +973,9 @@ RETURN-TYPE and accept arguments of ARG-TYPES."
 (define-foreign sdl-get-keyboard-state
   '* "SDL_GetKeyboardState" '(*))
 
+(define-foreign sdl-get-scancode-from-key
+  int "SDL_GetScancodeFromKey" (list int))
+
 
 ;;;
 ;;; Text Input
-- 
cgit v1.2.3