Quiet annoying mutex debug logging messages

[clinton/bobotpp.git] / scripts / bot.scm

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