From: David Kastrup <dak@gnu.org>
Date: Sun, 5 Feb 2017 15:41:42 +0000 (+0100)
Subject: Issue 5056/1: (Re-)permit empty list as Scheme engraver
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=0e697629d89890c0cc8a41c21879632d6ead8d88;p=lilypond.git

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

diff --git a/lily/translator-group.cc b/lily/translator-group.cc
index 5aba7bd6d4..72954ac5ac 100644
--- 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)