* 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 8e3a7f76970e84976de3703625f56eee401d1315..b387276157200b0d5d98a2f363d34c18bccb2250 100644 (file)
--- a/lily/translator-scheme.cc
+++ b/lily/translator-scheme.cc
@@ -196,7 +196,7 @@ 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->get_context_name (), port);
     }