SCM
gacela_SDL_SetVideoMode (SCM width, SCM height, SCM bpp, SCM flags)
{
+ return scm_int2num (SDL_SetVideoMode (scm_num2int (width, 0, "SDL_SetVideoMode"), \
+ scm_num2int (height, 0, "SDL_SetVideoMde"), \
+ scm_num2int (bpp, 0, "SDL_SetVideoMde"), \
+ scm_num2int (flags, 0, "SDL_SetVideoMde")));
}
void*
scm_c_define_gsubr ("SDL_Init", 1, 0, 0, gacela_SDL_Init);
scm_c_define_gsubr ("SDL_Quit", 0, 0, 0, gacela_SDL_Quit);
+ scm_c_define_gsubr ("SDL_SetVideoMode", 4, 0, 0, gacela_SDL_SetVideoMode);
return NULL;
}