From: fred <fred>
Date: Tue, 26 Mar 2002 21:48:12 +0000 (+0000)
Subject: lilypond-1.1.36
X-Git-Tag: release/1.5.59~2528
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=5c6e4c37e4a017409c8823653a1502bd6bb5c53b;p=lilypond.git

lilypond-1.1.36
---

diff --git a/lily/auto-beam-engraver.cc b/lily/auto-beam-engraver.cc
index 1fd4be9440..1396f68e75 100644
--- a/lily/auto-beam-engraver.cc
+++ b/lily/auto-beam-engraver.cc
@@ -173,7 +173,7 @@ Auto_beam_engraver::create_beam_p ()
   /* urg, copied from Beam_engraver */
   Scalar prop = get_property ("beamslopedamping", 0);
   if (prop.isnum_b ()) 
-    beam_p->damping_i_ = prop;
+    beam_p->set_elt_property (damping_scm_sym, gh_int2scm( prop));
 
   prop = get_property ("beamquantisation", 0);
   if (prop.isnum_b ()) 
diff --git a/lily/beam-engraver.cc b/lily/beam-engraver.cc
index d855e41dea..9afca27c9f 100644
--- a/lily/beam-engraver.cc
+++ b/lily/beam-engraver.cc
@@ -73,8 +73,8 @@ Beam_engraver::do_process_requests ()
 
       Scalar prop = get_property ("beamslopedamping", 0);
       if (prop.isnum_b ()) 
-	beam_p_->damping_i_ = prop;
-
+	beam_p_->set_elt_property (damping_scm_sym, gh_int2scm( prop));
+      
       prop = get_property ("beamquantisation", 0);
       if (prop.isnum_b ()) 
 	beam_p_->quantisation_ = (Beam::Quantisation)(int)prop;