Issue 5167/6: Changes: show \markup xxx = ... \etc assignments

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

diff --git a/lily/translator-group.cc b/lily/translator-group.cc
index 5aba7bd6d4606886b19d2a1a0680a999b110157b..538a1d7b05cdc13df399a60f9e61814a5ec7a868 100644 (file)
--- 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;
         }