examples/blank-window.scm


1
2
3
4
5
6
7
8
9
10

(use-modules (sdl2)
             (sdl2 video))

(sdl-init)

(define window (make-sdl-window))

(sleep 2)
(close-sdl-window! window)
(sdl-quit)