From a9f6817f5925053fbc5046f99a278e1561e18c33 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Tue, 26 Mar 2002 21:45:04 +0000
Subject: [PATCH] lilypond-1.1.13

---
 lily/include/lily-guile.hh |  1 +
 lily/lily-guile.cc         | 21 ++++++++++++++++++++-
 2 files changed, 21 insertions(+), 1 deletion(-)

diff --git a/lily/include/lily-guile.hh b/lily/include/lily-guile.hh
index e2f945b1c0..105b3ba493 100644
--- a/lily/include/lily-guile.hh
+++ b/lily/include/lily-guile.hh
@@ -16,6 +16,7 @@
 #include <libguile.h>
 
 SCM ly_symbol (String name);
+SCM ly_set_scm (String name , SCM val);
 
 SCM ly_append (SCM a, SCM b);
 SCM ly_eval (SCM a);
diff --git a/lily/lily-guile.cc b/lily/lily-guile.cc
index b729e90590..26e32488b8 100644
--- 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;  
 }
+
-- 
2.39.5