--- /dev/null
+#include <libguile.h>
+#include "mods.h"
+
+SCM register_generator(SCM name, SCM proc)
+{
+ printf ("Register: %s\n", scm_to_locale_string(name));
+ scm_call_1(proc, scm_from_int(-1));
+ return SCM_UNSPECIFIED;
+}
+
+void init_dungeon_master_module(void *unused)
+{
+ scm_c_define_gsubr("register-generator", 2, 0, 0, (scm_t_subr)register_generator);
+ scm_c_export("register-generator", NULL);
+}
+
+void scm_init_dungeon_master_module()
+{
+ scm_c_define_module("dungeon-master", init_dungeon_master_module, NULL);
+}
+
+void load_mods()
+{
+ scm_init_guile();
+ scm_init_dungeon_master_module();
+ scm_primitive_load(scm_from_locale_string("mods/default/main.scm"));
+}