Issue 5056/1: (Re-)permit empty list as Scheme engraver

[lilypond.git] / lily / translator-group.cc

diff --git a/lily/translator-group.cc b/lily/translator-group.cc
index 5aba7bd6d4606886b19d2a1a0680a999b110157b..72954ac5acbfaae69692fd5eb0d1bea908b7b18a 100644 (file)
--- a/lily/translator-group.cc
+++ b/lily/translator-group.cc
@@ -168,7 +168,7 @@ Translator_group::create_child_translator (SCM sev)
         trans = get_translator_creator (trans);
       if (ly_is_procedure (trans))
         trans = scm_call_1 (trans, cs);
-      if (scm_is_pair (trans))
+      if (ly_cheap_is_list (trans))
         trans = (new Scheme_engraver (trans, new_context))->unprotect ();
       Translator *instance = unsmob<Translator> (trans);
       if (!instance)