release: 1.5.1

[lilypond.git] / lily / span-bar.cc

diff --git a/lily/span-bar.cc b/lily/span-bar.cc
index b564cf17909326ff82ea1184eb4e505485db374b..015f6b2e25f0cd847272b5e2d813075a2e0e367a 100644 (file)
--- a/lily/span-bar.cc
+++ b/lily/span-bar.cc
@@ -62,9 +62,16 @@ Span_bar::brew_molecule (SCM smobbed_me)
       refp = staff_bar->common_refpoint (refp, Y_AXIS);
     }
 
-  // evaluate glyph
   Span_bar::evaluate_glyph(me);
   SCM glyph = me->get_grob_property (ly_symbol2scm ("glyph"));
+
+  /*
+    glyph may not be a string, when ME is killed by Hara Kiri in
+    between.
+  */
+  if (!gh_string_p (glyph))
+    return SCM_EOL;
+  
   String glyph_str = ly_scm2string (glyph);
 
   // compose span_bar_mol