From: hanwen <hanwen>
Date: Fri, 18 Oct 2002 23:31:38 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: release/1.7.25~698
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=8e5e7612b7b28908864af525b95e054c0a2f5986;p=lilypond.git

*** empty log message ***
---

diff --git a/lily/stem-engraver.cc b/lily/stem-engraver.cc
index 216e994bc5..25e50b2175 100644
--- a/lily/stem-engraver.cc
+++ b/lily/stem-engraver.cc
@@ -81,8 +81,11 @@ Stem_engraver::acknowledge_grob (Grob_info i)
 	       */
 	      int requested_type = gh_scm2int (tremolo_req_->get_mus_property ("tremolo-type"));
 	      SCM f = get_property ("tremoloFlags");
-	      if (!requested_type && gh_number_p (f))
-		requested_type = gh_scm2int (f);
+	      if (!requested_type)
+		if (gh_number_p (f))
+		  requested_type = gh_scm2int (f);
+		else
+		  requested_type = 8; 
 	      else
 		daddy_trans_->set_property ("tremoloFlags", gh_int2scm (requested_type));