#include <libguile.h>
#include "color.h"
+#include "gsubr.h"
#include "material.h"
#include "material-types.h"
#include "wrapped.h"
init_material (void)
{
init_material_type ();
- scm_c_define_gsubr ("make-material", 0, 0, 1, (scm_t_subr)make_material);
- scm_c_export ("make-material", NULL);
+ DEFINE_GSUBR ("make-material", 0, 0, 1, make_material);
}
DEFINE_WRAPPED_TYPE (irr::video::SMaterial*, "material",