[project @ 2005-06-23 22:59:18 by unknown_lamer]

Made (bobotpp bot) actually work

diff --git a/scripts/bot.scm b/scripts/bot.scm
index 271f286..984c64a 100644 (file)
--- a/scripts/bot.scm
+++ b/scripts/bot.scm
@@ -7,4 +7,5 @@
 (define-module (bobotpp bot))
 
 (set-module-uses! %module-public-interface
-                 (list the-bot-module))
\ No newline at end of file
+                 (list (module-ref (resolve-module '(guile-user) #f)
+                                   'the-bot-module)))
\ No newline at end of file

diff --git a/source/Interp.C b/source/Interp.C
index 5980d9a..c5c2fee 100644 (file)
--- a/source/Interp.C
+++ b/source/Interp.C
@@ -228,6 +228,7 @@ Interp::Startup()
 {
   bot_module = scm_c_define_module ("the-bot-module", 
                                    interp_init_helper, 0);
+
   scm_c_call_with_current_module (bot_module,
                                  interp_post_startup_helper,
                                  bot_module);