(declare (foreign-declare "#include <SDL.h>\n"))
(foreign-code "SDL_Init(SDL_INIT_EVERYTHING);")

(use posix)
(use sdl)
(sdl-init SDL_INIT_EVERYTHING)
(include "test-sdl-body.scm")

(sdl-quit)
(exit 0)