From 313e28f1f8aaa1c9b56ae0ddbda979b790237690 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 12 Dec 2015 02:54:04 -0500
Subject: Add SDL_GetTicks binding.

* sdl2/bindings.scm (sdl-get-ticks): New procedure.
* sdl2.scm (sdl-ticks): New procedure.
---
 sdl2/bindings.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'sdl2')

diff --git a/sdl2/bindings.scm b/sdl2/bindings.scm
index 138d4fc..25b3576 100644
--- a/sdl2/bindings.scm
+++ b/sdl2/bindings.scm
@@ -192,3 +192,11 @@ RETURN-TYPE and accept arguments of ARG-TYPES."
 
 (define-foreign sdl-gl-swap-window
   void "SDL_GL_SwapWindow" '(*))
+
+
+;;;
+;;; Timer
+;;;
+
+(define-foreign sdl-get-ticks
+  uint32 "SDL_GetTicks" '())
-- 
cgit v1.2.3