+SCM
+gacela_Mix_PauseMusic (void)
+{
+ Mix_PauseMusic ();
+ return SCM_UNSPECIFIED;
+}
+
+SCM
+gacela_Mix_ResumeMusic (void)
+{
+ Mix_ResumeMusic ();
+ return SCM_UNSPECIFIED;
+}
+
+SCM
+gacela_Mix_HaltMusic (void)
+{
+ return scm_from_int (Mix_HaltMusic ());
+}
+
+SCM
+gacela_Mix_FreeMusic (SCM music)
+{
+ Mix_FreeMusic ((Mix_Music *)scm_to_int (music));
+ return SCM_UNSPECIFIED;
+}
+
+SCM
+gacela_Mix_FreeChunk (SCM chunk)
+{
+ Mix_FreeChunk ((Mix_Chunk *)scm_to_int (chunk));
+ return SCM_UNSPECIFIED;
+}
+
+SCM
+gacela_Mix_CloseAudio (void)
+{
+ Mix_CloseAudio ();
+ return SCM_UNSPECIFIED;
+}
+
+
+void*
+SDL_register_functions (void* data)
+{
+ scm_c_define ("SDL_INIT_TIMER", scm_from_int (SDL_INIT_TIMER));
+ scm_c_define ("SDL_INIT_AUDIO", scm_from_int (SDL_INIT_AUDIO));
+ scm_c_define ("SDL_INIT_VIDEO", scm_from_int (SDL_INIT_VIDEO));
+ scm_c_define ("SDL_INIT_CDROM", scm_from_int (SDL_INIT_CDROM));
+ scm_c_define ("SDL_INIT_JOYSTICK", scm_from_int (SDL_INIT_JOYSTICK));
+ scm_c_define ("SDL_INIT_NOPARACHUTE", scm_from_int (SDL_INIT_NOPARACHUTE));
+ scm_c_define ("SDL_INIT_EVENTTHREAD", scm_from_int (SDL_INIT_EVENTTHREAD));
+ scm_c_define ("SDL_INIT_EVERYTHING", scm_from_int (SDL_INIT_EVERYTHING));
+
+ scm_c_define ("SDL_SWSURFACE", scm_from_int (SDL_SWSURFACE));
+ scm_c_define ("SDL_HWSURFACE", scm_from_int (SDL_HWSURFACE));
+ scm_c_define ("SDL_ASYNCBLIT", scm_from_int (SDL_ASYNCBLIT));
+
+ scm_c_define ("SDL_ANYFORMAT", scm_from_int (SDL_ANYFORMAT));
+ scm_c_define ("SDL_HWPALETTE", scm_from_int (SDL_HWPALETTE));
+ scm_c_define ("SDL_DOUBLEBUF", scm_from_int (SDL_DOUBLEBUF));
+ scm_c_define ("SDL_FULLSCREEN", scm_from_int (SDL_FULLSCREEN));
+ scm_c_define ("SDL_OPENGL", scm_from_int (SDL_OPENGL));
+ scm_c_define ("SDL_OPENGLBLIT", scm_from_int (SDL_OPENGLBLIT));
+ scm_c_define ("SDL_RESIZABLE", scm_from_int (SDL_RESIZABLE));
+ scm_c_define ("SDL_NOFRAME", scm_from_int (SDL_NOFRAME));
+
+ scm_c_define ("SDL_HWACCEL", scm_from_int (SDL_HWACCEL));
+ scm_c_define ("SDL_SRCCOLORKEY", scm_from_int (SDL_SRCCOLORKEY));
+
+ scm_c_define ("SDL_GL_DOUBLEBUFFER", scm_from_int (SDL_GL_DOUBLEBUFFER));
+
+ scm_c_define ("SDL_DEFAULT_REPEAT_DELAY", scm_from_int (SDL_DEFAULT_REPEAT_DELAY));
+ scm_c_define ("SDL_DEFAULT_REPEAT_INTERVAL", scm_from_int (SDL_DEFAULT_REPEAT_INTERVAL));
+
+ scm_c_define ("SDL_LIL_ENDIAN", scm_from_int (SDL_LIL_ENDIAN));
+ scm_c_define ("SDL_BIG_ENDIAN", scm_from_int (SDL_BIG_ENDIAN));
+ scm_c_define ("SDL_BYTEORDER", scm_from_int (SDL_BYTEORDER));
+
+ scm_c_define ("MIX_DEFAULT_FORMAT", scm_from_int (MIX_DEFAULT_FORMAT));