From feed3accdc0482b11535c72119ea73f627f633ed Mon Sep 17 00:00:00 2001
From: Javier Sancho <jsf@jsancho.org>
Date: Wed, 10 Jun 2020 08:46:48 +0200
Subject: [PATCH] Allow mods structured like modules

---
 src/mods.cpp | 8 ++++++++
 1 file changed, 8 insertions(+)

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)
         {
-- 
2.39.5