From 5c6e4c37e4a017409c8823653a1502bd6bb5c53b Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Tue, 26 Mar 2002 21:48:12 +0000
Subject: [PATCH] lilypond-1.1.36

---
 lily/auto-beam-engraver.cc | 2 +-
 lily/beam-engraver.cc      | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

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;
-- 
2.39.5