From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Wed, 31 Mar 2004 09:33:17 +0000 (+0000)
Subject: (print):	don't crash for no-stem.
X-Git-Tag: release/2.1.37~11
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=bd09a52e9d092057a096cedfc8d523361bfdef8c;p=lilypond.git

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

diff --git a/ChangeLog b/ChangeLog
index c9b058559e..92d228098c 100644
--- 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 abee9361b6..20bff9d686 100644
--- 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