From f1047b6d0355ea80df34aef77a19ead78b818767 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Wed, 27 Mar 2002 02:04:12 +0000
Subject: [PATCH] lilypond-1.5.22

---
 lily/lily-guile.cc             | 19 +++++++++++++++++--
 scm/generate-documentation.scm |  6 ++++++
 scm/lily.scm                   |  1 +
 3 files changed, 24 insertions(+), 2 deletions(-)

diff --git a/lily/lily-guile.cc b/lily/lily-guile.cc
index 4446fdda1d..42d28ecdd5 100644
--- a/lily/lily-guile.cc
+++ b/lily/lily-guile.cc
@@ -249,11 +249,26 @@ void add_scm_init_func (void (*f) ())
 extern  void init_cxx_function_smobs ();
 
 void
-init_lily_guile ()
+prepend_load_path (String p )
 {
+  char s[1024];
+  sprintf (s, 
+	   "(set! %%load-path (cons \"%s\" %%load-path))", p.ch_C());
+
+  scm_c_eval_string (s);
+}
+
+void
+init_lily_guile (String p )
+{
+  prepend_load_path (p);
+
+  // todo: junk this. We should make real modules iso. just loading files.
+  prepend_load_path (p + "/scm/");
+
   SCM last_mod = scm_current_module ();
   scm_set_current_module (scm_c_resolve_module ("guile"));
-
+  
   init_cxx_function_smobs ();
   for (int i=scm_init_funcs_->size () ; i--;)
     (scm_init_funcs_->elem (i)) ();
diff --git a/scm/generate-documentation.scm b/scm/generate-documentation.scm
index 9dad6f22f9..ac7c071a5b 100644
--- a/scm/generate-documentation.scm
+++ b/scm/generate-documentation.scm
@@ -10,6 +10,12 @@
 ;;; Running LilyPond on this file generates the documentation
 
 
+
+
+;;;;;;;;;;;;;;;;
+;;;;;;;;;;;;;;;; TODO : make modules of these!
+;;;;;;;;;;;;;;;;
+
 (define load-files '("documentation-lib.scm"
 		     "engraver-documentation-lib.scm"
 		     "music-documentation-lib.scm"
diff --git a/scm/lily.scm b/scm/lily.scm
index 8679e958cc..d5aa43e429 100644
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -119,6 +119,7 @@
 
 
 
+
 (use-modules (scm tex)
 	     (scm ps)
 	     (scm pysk)
-- 
2.39.5