X-Git-Url: https://git.jsancho.org/?p=dungeon-master.git;a=blobdiff_plain;f=src%2Fmods.cpp;h=dea09b633b0e40261e5d25c060b849e95bc3339b;hp=abdf472bfd8ff25c4c1a6519f1761a11773f94b7;hb=feed3accdc0482b11535c72119ea73f627f633ed;hpb=652177d7027e9a9fe6c6b8394042bdaabf5ada76

diff --git a/src/mods.cpp b/src/mods.cpp
index abdf472..dea09b6 100644
--- a/src/mods.cpp
+++ b/src/mods.cpp
@@ -43,6 +43,13 @@ void scm_init_dungeon_master_module ()
   scm_c_define_module ("dungeon-master", init_dungeon_master_module, NULL);
 }
 
+void add_to_load_path (std::string path)
+{
+  // Add path to %load-path variable, needed for modules created in mods
+  std::string exp = "(add-to-load-path \"" + path + "\")";
+  scm_c_eval_string (exp.c_str ());
+}
+
 void load_dmaster_mods ()
 {
   scm_init_guile ();
@@ -58,6 +65,7 @@ void load_dmaster_mods ()
   for (const std::string &path : paths)
     {
       mods_path = path + PATH_DELIM + "mods";
+      add_to_load_path (mods_path);
       mods_dir = opendir (mods_path.c_str ());
       if (mods_dir != NULL)
         {