using namespace core;
using namespace video;
+SCM register_generator(SCM name, SCM proc) {
+ printf ("Register: %s\n", scm_to_locale_string(name));
+ scm_call_0(proc);
+ return SCM_UNSPECIFIED;
+}
+
int main()
{
scm_init_guile();
+ scm_c_define_gsubr("register-generator", 2, 0, 0, (scm_t_subr)register_generator);
scm_primitive_load(scm_from_locale_string("plugins/default/main.scm"));
IrrlichtDevice* device =