lilypond-1.3.111

diff --git a/lily/instrument-name-engraver.cc b/lily/instrument-name-engraver.cc
index a42695aa1063489105c02e7d4a1d2a94cedfb451..cac8ec76d4e73c69fd9d582859d0613e637a2346 100644 (file)
--- a/lily/instrument-name-engraver.cc
+++ b/lily/instrument-name-engraver.cc
@@ -65,14 +65,14 @@ Instrument_name_engraver::create_text (SCM txt)
 void
 Instrument_name_engraver::acknowledge_grob (Grob_info i)
 {
-  SCM s = get_property ("instrument");
+  if (Bar::has_interface (i.elem_l_))
+    {
+      SCM s = get_property ("instrument");
   
-  if (now_mom () > Moment (0))
-    s = get_property ("instr");
+      if (now_mom () > Moment (0))
+       s = get_property ("instr");
 
-  if (gh_string_p (s))
-    {
-      if (Bar::has_interface (i.elem_l_))
+      if (gh_string_p (s))
        {
          create_text (s);
        }

diff --git a/scm/foo.scm b/scm/foo.scm
new file mode 100644 (file)
index 0000000..8b13789
--- /dev/null
+++ b/scm/foo.scm
@@ -0,0 +1 @@
+