From fa1b1d800cd29c2f61d427a041a3b99bead15960 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Fri, 5 Feb 2016 13:47:58 -0500
Subject: window: Initialize SDL window before opening.

* sly/window.scm (open-window): Initialize SDL2 and the window before
  modifying it.
---
 sly/window.scm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/sly/window.scm b/sly/window.scm
index 739bb71..25b90fc 100644
--- a/sly/window.scm
+++ b/sly/window.scm
@@ -101,6 +101,8 @@
   (sdl2:set-gl-swap-interval! 'vsync))
 
 (define (open-window window)
+  (sdl2:sdl-init)
+  (init-window)
   (let ((res (window-resolution window)))
     (sdl2:set-window-title! %sdl-window (window-title window))
     (sdl2:set-window-size! %sdl-window (list (vx res) (vy res)))
-- 
cgit v1.2.3