From 4b575b89488464f5d31f8aff28538971f24514b5 Mon Sep 17 00:00:00 2001 From: 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