diff options
| -rw-r--r-- | 2d/window.scm | 8 |
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)))) |