From c51c926b8e64e1507f86d9b47430c5a951c820d0 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Fri, 14 Feb 1997 13:21:55 +0000
Subject: [PATCH] lilypond-0.0.32

---
 src/beam.cc | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/src/beam.cc b/src/beam.cc
index 44d51e0af9..1b0fa2baa3 100644
--- a/src/beam.cc
+++ b/src/beam.cc
@@ -217,7 +217,10 @@ Beam::stem_beams(Stem *here, Stem *next, Stem *prev)const
 	int lhalfs= lhalfs = here->beams_left - prev->beams_right ;
 	int lwholebeams= here->beams_left <? prev->beams_right ;
 	Real w = (here->hpos() - prev->hpos())/4;
-	Atom a =  paper()->lookup_p_->beam(sl, w);
+	Symbol dummy;
+	Atom a(dummy);
+	if (lhalfs)		// generates warnings if not
+	    a =  paper()->lookup_p_->beam(sl, w);
 	a.translate(Offset (-w, -w * sl));
 	for (int j = 0; j  < lhalfs; j++) {
 	    Atom b(a);
@@ -239,8 +242,10 @@ Beam::stem_beams(Stem *here, Stem *next, Stem *prev)const
 	    b.translate(Offset(0, -dir_i_ * dy * j));
 	    rightbeams.add( b ); 
 	}
+
 	w /= 4;
-	a = paper()->lookup_p_->beam(sl, w);
+	if (rhalfs)
+	    a = paper()->lookup_p_->beam(sl, w);
 	
 	for (; j  < rwholebeams + rhalfs; j++) {
 	    Atom b(a);
-- 
2.11.4.GIT