summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--2d/window.scm8
1 files changed, 4 insertions, 4 deletions
diff --git a/2d/window.scm b/2d/window.scm
index 4c967de..f5f16b8 100644
--- a/2d/window.scm
+++ b/2d/window.scm
@@ -81,7 +81,7 @@
(SDL:quit))
(define-syntax-rule (with-window window body ...)
- (begin
- (open-window window)
- body ...
- (close-window)))
+ (dynamic-wind
+ (lambda () (open-window window))
+ (lambda () body ...)
+ (lambda () (close-window))))