+(define fullscreen 'off)
+
+(define* (set-fullscreen! fs #:optional (toggle #t))
+ (cond ((or (and (eq? fullscreen 'on) (eq? fs 'off))
+ (and (eq? fullscreen 'off) (eq? fs 'on)))
+ (set! fullscreen fs)
+ (cond (toggle
+ (SDL_WM_ToggleFullScreen screen))))))
+
+(define (get-fullscreen)
+ fullscreen)
+
+