[project @ 2002-07-09 14:28:08 by unknown_lamer]

[clinton/bobotpp.git] / source / Interp.C

diff --git a/source/Interp.C b/source/Interp.C
index f8b6393..f1090d4 100644 (file)
--- a/source/Interp.C
+++ b/source/Interp.C
@@ -51,7 +51,12 @@ Interp::Startup()
 {
 //  scm_primitive_load_path(scm_makfrom0str("ice-9/boot-9.scm"));
 
-  scm_primitive_load (scm_makfrom0str ("/etc/bobotpp/bobot-scheme.scm"));
+  scm_c_define ("bot-sys-scripts-dir", 
+               scm_makfrom0str (String(PREFIX) + 
+                                "/share/bobotpp/scripts/"));
+  scm_primitive_load 
+    (scm_makfrom0str (String(PREFIX) + 
+                     "/share/bobotpp/scripts/bobot-utils.scm"));
 
   bot_new_procedure ("bot-action", (SCMFunc)ScriptCommands::Action, 2, 0, 0);
   scm_c_define_gsubr ("bot-adduser", 5, 2, 0,