From 0fe5a8170dae3e1b118585e3d605461586e6dee7 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Wed, 17 Aug 2016 20:53:49 -0400
Subject: window: Initialize window in with-window form.

* sly/window.scm (with-window): Initialize window before opening it.
---
 sly/window.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/sly/window.scm b/sly/window.scm
index f2f04cc..7644f22 100644
--- a/sly/window.scm
+++ b/sly/window.scm
@@ -117,6 +117,7 @@
 (define-syntax-rule (with-window window body ...)
   (dynamic-wind
     (lambda ()
+      (init-window)
       (open-window window))
     (lambda () body ...)
     close-window))
-- 
cgit v1.2.3