From 4b575b89488464f5d31f8aff28538971f24514b5 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Tue, 26 Mar 2002 23:56:07 +0000
Subject: [PATCH] lilypond-1.3.91
---
lily/translator-group.cc | 11 +++++++++--
1 file changed, 9 insertions(+), 2 deletions(-)
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
{
--
2.39.5