From 33863df70267b72aaeb94e4b1c0165cb1ec94b74 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Fri, 8 Jan 2016 21:38:32 -0500
Subject: video: Add SDL_GL_SetSwapInterval binding.

* sdl2/bindings.scm (sdl-gl-set-swap-interval): New procedure.
* sdl2/video.scm (set-gl-swap-interval!): New procedure.
---
 sdl2/bindings.scm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'sdl2/bindings.scm')

diff --git a/sdl2/bindings.scm b/sdl2/bindings.scm
index 6c638ab..b6f9431 100644
--- a/sdl2/bindings.scm
+++ b/sdl2/bindings.scm
@@ -202,6 +202,9 @@ RETURN-TYPE and accept arguments of ARG-TYPES."
 (define-foreign sdl-gl-set-attribute
   int "SDL_GL_SetAttribute" (list int int))
 
+(define-foreign sdl-gl-set-swap-interval
+  int "SDL_GL_SetSwapInterval" (list int))
+
 (define-public SDL_RENDERER_SOFTWARE #x00000001)
 (define-public SDL_RENDERER_ACCELERATED #x00000002)
 (define-public SDL_RENDERER_PRESENTVSYNC #x00000004)
-- 
cgit v1.2.3