(LY_DEFINE): ly_kpathsea_expand_variable. New

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

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