diff options
| -rw-r--r-- | sly/window.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/sly/window.scm b/sly/window.scm index 7b17276..f2f04cc 100644 --- a/sly/window.scm +++ b/sly/window.scm @@ -45,6 +45,7 @@ window-close-hook init-window + open-window swap-window)) (define-record-type <window> @@ -92,6 +93,7 @@ (define %gl-context #f) (define (init-window) + (sdl2:sdl-init) (set! %sdl-window (sdl2:make-window #:opengl? #t #:show? #t)) (sdl2:set-gl-attribute! 'context-major-version 3) (sdl2:set-gl-attribute! 'context-minor-version 2) @@ -101,8 +103,6 @@ (sdl2:set-gl-swap-interval! 'vsync)) (define (open-window window) - (sdl2:sdl-init) - (init-window) (let ((res (window-resolution window))) (sdl2:set-window-title! %sdl-window (window-title window)) (sdl2:set-window-size! %sdl-window (list (vx res) (vy res))) |