(print): don't crash for no-stem.

diff --git a/ChangeLog b/ChangeLog
index c9b058559e4f2faae842f370d87e594c6dc3ba7e..92d228098cc1c96aa3fc2b1562a534d921a514dd 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2004-03-31  Han-Wen Nienhuys   <hanwen@xs4all.nl>
 
+       * lily/stem-tremolo.cc (print): don't crash for no-stem.
+
        * Documentation/user/changing-defaults.itely (Which properties to
        change): fixes.
 

diff --git a/lily/stem-tremolo.cc b/lily/stem-tremolo.cc
index abee9361b67b35e404bb1b3345b625c1df390ad6..20bff9d6866c2f6b2d317cdc668c41fc3510d004 100644 (file)
--- a/lily/stem-tremolo.cc
+++ b/lily/stem-tremolo.cc
@@ -127,6 +127,12 @@ Stem_tremolo::print (SCM grob)
 {
   Grob *me = unsmob_grob (grob);
   Grob *stem = unsmob_grob (me->get_property ("stem"));
+  if (!stem)
+    {
+      programming_error ("No stem for stem-tremolo");
+      return SCM_EOL;
+    }
+  
   Grob *beam = Stem::get_beam (stem);
   Direction stemdir = Stem::get_direction (stem);
   Real beam_translation