* scm/output-lib.scm (shift-right-at-line-begin): new function:

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

diff --git a/lily/translator-scheme.cc b/lily/translator-scheme.cc
index ac2d1d5d0aae0c1c44ae903d9ef9f5d8630ffb94..b387276157200b0d5d98a2f363d34c18bccb2250 100644 (file)
--- a/lily/translator-scheme.cc
+++ b/lily/translator-scheme.cc
@@ -139,13 +139,13 @@ LY_DEFINE(ly_context_properties,
 
 LY_DEFINE(ly_translator_name,
          "ly:translator-name", 1,0,0,  (SCM trans),
-         "Return the type name of the translator @var{trans}.")
+         "Return the type name of the translator @var{trans}. The name is a symbol.")
 {
   Translator* tr =  unsmob_translator (trans);
   SCM_ASSERT_TYPE(tr, trans, SCM_ARG1, __FUNCTION__, "Context");
 
   char const* nm = classname (tr);
-  return scm_makfrom0str (nm);
+  return ly_symbol2scm (nm);
 }
 
 LY_DEFINE(ly_translator_description,
@@ -196,9 +196,9 @@ Translator::print_smob (SCM s, SCM port, scm_print_state *)
   Translator *sc = (Translator *) ly_cdr (s);
      
   scm_puts ("#<Translator ", port);
-  if (Translator_def *d=unsmob_translator_def (sc->definition_))
+  if (Context_def *d=unsmob_context_def (sc->definition_))
     {
-      scm_display (d->type_name_, port);
+      scm_display (d->get_context_name (), port);
     }
   else
     scm_display (ly_translator_name (s), port);