X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=blobdiff_plain;f=lily%2Ftranslator-def.cc;h=79c4087bdbacbb8cd6b5587281e6983531d256aa;hb=8d7a55721e3305f745c0b24c367de002dd197825;hp=2533c486cc64ba6e25b79e12f49f6477a650a870;hpb=fac2e6ddfa211af496cf9274b7c91e06d79404d3;p=lilypond.git

diff --git a/lily/translator-def.cc b/lily/translator-def.cc
index 2533c486cc..79c4087bdb 100644
--- a/lily/translator-def.cc
+++ b/lily/translator-def.cc
@@ -138,16 +138,13 @@ Translator_def::add_pop_property (SCM props, SCM syms)
 }
 
 /*
-  Do it. SYMS maybe a symbol or a list of symbols. VAL is
-  SCM_UNDEFINED in case of a pop
+  Do it. SYM is single symbol. VAL is SCM_UNDEFINED in case of a pop
 */
 void
-Translator_def::apply_pushpop_property (Translator_group* me,SCM syms, SCM eprop, SCM val)
+Translator_def::apply_pushpop_property (Translator_group* me,SCM sym, SCM eprop, SCM val)
 {
-  if (gh_symbol_p (syms))
-    dynamic_cast<Translator_group*> (me)->execute_single_pushpop_property (syms, eprop, val);
-  else for (SCM s = syms; gh_pair_p (s); s = ly_cdr (s))
-    dynamic_cast<Translator_group*> (me)->execute_single_pushpop_property (ly_car (s), eprop, val);
+  dynamic_cast<Translator_group*> (me)
+    ->execute_single_pushpop_property (sym, eprop, val);
 }