lilypond-1.5.22

diff --git a/lily/lily-guile.cc b/lily/lily-guile.cc
index 4446fdda1dea5d8ffb7d32f3b4eb14d3fca09f9d..42d28ecdd5a5596ecdf6cbb2bd8532737fcb096b 100644 (file)
--- 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 9dad6f22f976e5ced1bd4e2c97596314f653909d..ac7c071a5b50dfc66649e7158450654a8523cee3 100644 (file)
--- 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 8679e958cc44f425c0906a42a0dbcba232f50ab2..d5aa43e4299dbe9cd84a478d80dfce91d816f43f 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -119,6 +119,7 @@
 
 
 
+
 (use-modules (scm tex)
             (scm ps)
             (scm pysk)