X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Ftranslator-group.cc;h=538a1d7b05cdc13df399a60f9e61814a5ec7a868;hb=5d84bfad4626892bcffd05adcced53c8a2329047;hp=5aba7bd6d4606886b19d2a1a0680a999b110157b;hpb=6887546c5caf87cdc94252c020f39b43a57bf057;p=lilypond.git

diff --git a/lily/translator-group.cc b/lily/translator-group.cc
index 5aba7bd6d4..538a1d7b05 100644
--- a/lily/translator-group.cc
+++ b/lily/translator-group.cc
@@ -168,12 +168,12 @@ 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)
         {
-          warning (_f ("cannot find: `%s'", ly_symbol2string (scm_car (s)).c_str ()));
+          warning (_f ("cannot find: `%s'", ly_scm_write_string (trans).c_str ()));
           continue;
         }