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

(require 'posix)
(require 'sdl)
(require 'syntax-case)

(define-foreign-variable installation-home c-string "C_INSTALL_HOME")
(set! ##sys#include-pathnames (list installation-home))

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

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

(repl)

(sdl-quit)
(exit 0)