From a915b370094a59f868b6d49ab50e10c062600b46 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Tue, 17 Mar 2015 11:48:01 -0400
Subject: window: Throw an exception when SDL window cannot be opened.

* sly/window.scm (open-window): Throw error when 'SDL:set-video-mode'
  fails.
---
 sly/window.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/sly/window.scm b/sly/window.scm
index 0846855..0ee28cb 100644
--- a/sly/window.scm
+++ b/sly/window.scm
@@ -99,7 +99,8 @@
     (SDL:enable-unicode #t)
     (SDL:init 'everything)
     ;; Open SDL window in OpenGL mode.
-    (SDL:set-video-mode width height 24 flags)
+    (unless (SDL:set-video-mode width height 24 flags)
+      (error "Failed to open window:" width height flags))
     (SDL:set-caption (window-title window))))
 
 (define (close-window)
-- 
cgit v1.2.3