diff options
| -rw-r--r-- | sly/window.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/sly/window.scm b/sly/window.scm index 0846855..0ee28cb 100644 --- a/sly/window.scm +++ b/sly/window.scm @@ -99,7 +99,8 @@ (SDL:enable-unicode #t) (SDL:init 'everything) ;; Open SDL window in OpenGL mode. - (SDL:set-video-mode width height 24 flags) + (unless (SDL:set-video-mode width height 24 flags) + (error "Failed to open window:" width height flags)) (SDL:set-caption (window-title window)))) (define (close-window) |