- scm_c_define_gsubr ("add-static-text!", 3, 0, 1, (scm_t_subr)irr_gui_addStaticText);
- scm_c_define_gsubr ("get-gui-environment", 1, 0, 0, (scm_t_subr)irr_getGUIEnvironment);
- scm_c_export ("add-static-text!", "get-gui-environment", NULL);
+ DEFINE_GSUBR ("add-static-text!", 3, 0, 1, irr_gui_addStaticText);
+ DEFINE_GSUBR ("get-gui-environment", 1, 0, 0, irr_getGUIEnvironment);