summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2016-08-17 20:53:49 -0400
committerDavid Thompson <dthompson2@worcester.edu>2016-08-17 20:53:49 -0400
commit0fe5a8170dae3e1b118585e3d605461586e6dee7 (patch)
tree0fef1e61b8bc9b6f30d48e413886e3cc7131bcd2
parente57e297af60bd50230a27305ea42a34210a109ca (diff)
window: Initialize window in with-window form.HEADmaster
* sly/window.scm (with-window): Initialize window before opening it.
-rw-r--r--sly/window.scm1
1 files changed, 1 insertions, 0 deletions
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))