(import foreign)

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

(require-extension posix)
(require-extension sdl)

(handle-exceptions
    exn
    exn
  (load (string-append (or (getenv "HOME") ".") "/.csirc")))

(for-each load (cdr (argv)))

(repl)

(sdl-quit)
(exit 0)