From: fred <fred>
Date: Tue, 26 Mar 2002 23:56:07 +0000 (+0000)
Subject: lilypond-1.3.91
X-Git-Tag: release/1.5.59~1299
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=4b575b89488464f5d31f8aff28538971f24514b5;p=lilypond.git

lilypond-1.3.91
---

diff --git a/lily/translator-group.cc b/lily/translator-group.cc
index 0477d3e645..a13eb4901b 100644
--- a/lily/translator-group.cc
+++ b/lily/translator-group.cc
@@ -343,8 +343,15 @@ Translator_group::execute_single_pushpop_property (SCM prop, SCM eltprop, SCM va
 	{
 	  SCM prev = get_property (prop);
 
-	  prev = gh_cons (gh_cons (eltprop, val), prev);
-	  set_property (prop, prev);
+  	  /*
+	    we don't tack onto SCM_UNDEFINED, because it creates
+	    errors down the line, if we do scm_assoc().
+	   */
+	  if (gh_pair_p (prev) || prev == SCM_EOL)
+	    {
+		  prev = gh_cons (gh_cons (eltprop, val), prev);
+		  set_property (prop, prev);
+	    }
 	}
       else
 	{