* scm/music-functions.scm (descend-to-context): new

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

diff --git a/lily/translator-scheme.cc b/lily/translator-scheme.cc
index 1129a7b99abfcba9d33a625e1e6ebf573c5cf0a3..c32b13b017cf7b22000a405418198f6be5f40ca0 100644 (file)
--- a/lily/translator-scheme.cc
+++ b/lily/translator-scheme.cc
@@ -36,9 +36,11 @@ LY_DEFINE (ly_translator_description, "ly:translator-description",
 int
 Translator::print_smob (SCM s, SCM port, scm_print_state *)
 {
-  Translator *sc = (Translator*) ly_cdr (s);
+  Translator *me = (Translator*) ly_cdr (s);
   scm_puts ("#<Translator ", port);
-  scm_puts (classname (sc), port);
+  scm_puts (classname (me), port);
+  scm_display (me->simple_trans_list_, port);
+  
   scm_puts (" >", port);
   return 1;
 }