- scm_c_define_gsubr ("draw-all", 1, 0, 0, (scm_t_subr)irr_drawAll);
- scm_c_define_gsubr ("get-name", 1, 0, 0, (scm_t_subr)irr_getName);
- scm_c_define_gsubr ("set-material!", 2, 0, 0, (scm_t_subr)irr_setMaterial);
- scm_c_define_gsubr ("set-position!", 2, 0, 0, (scm_t_subr)irr_setPosition);
- scm_c_define_gsubr ("set-visible!", 2, 0, 0, (scm_t_subr)irr_setVisible);
- scm_c_export ("draw-all", "get-name", "set-material!", "set-position!",
- "set-visible!", NULL);
+ DEFINE_GSUBR ("draw-all", 1, 0, 0, irr_drawAll);
+ DEFINE_GSUBR ("get-position", 1, 1, 0, irr_getPosition);
+ DEFINE_GSUBR ("get-name", 1, 0, 0, irr_getName);
+ DEFINE_GSUBR ("set-material!", 2, 0, 0, irr_setMaterial);
+ DEFINE_GSUBR ("set-material-flag!", 3, 0, 0, irr_setMaterialFlag);
+ DEFINE_GSUBR ("set-position!", 2, 0, 0, irr_setPosition);
+ DEFINE_GSUBR ("set-visible!", 2, 0, 0, irr_setVisible);