release: 1.1.13

[lilypond.git] / lily / lily-guile.cc

diff --git a/lily/lily-guile.cc b/lily/lily-guile.cc
index b729e905906664a27c480dc0caf9c5a01c94b5da..26e32488b86d14c05cdd646b666377b157143c7a 100644 (file)
--- a/lily/lily-guile.cc
+++ b/lily/lily-guile.cc
@@ -14,6 +14,7 @@
 #include "main.hh"
 #include "simple-file-storage.hh"
 #include "file-path.hh"
+#include "debug.hh"
 
 
 /*
@@ -41,18 +42,36 @@ ly_symbol (String name)
   return gh_car (scm_intern (name.ch_C(), name.length_i()));
 }
 
+SCM
+ly_set_scm (String name , SCM val)
+{
+  return scm_sysintern (name.ch_C(), val);
+  
+}
 /**
 
    Read a file, and shove it down GUILE.  GUILE also has file read
    functions, but you can't fiddle with the path of those.
    
  */
-
 void
 read_lily_scm_file (String fn)
 {
   String s = global_path.find (fn);
+  if (s == "")
+    {
+      String e = _f ("Can not find file `%s\'", fn);
+      e += " ";
+      e += _f ("(Load path is `%s\'", global_path.str ());
+      error (e);
+    }
+  else
+    *mlog << '[' << s;
+
+
   Simple_file_storage f(s);
   
   gh_eval_str ((char *) f.ch_C());
+  *mlog << ']' << flush;  
 }
+