From 0e697629d89890c0cc8a41c21879632d6ead8d88 Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Sun, 5 Feb 2017 16:41:42 +0100 Subject: [PATCH] Issue 5056/1: (Re-)permit empty list as Scheme engraver --- lily/translator-group.cc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 (trans); if (!instance) -- 2.39.5