*** empty log message ***

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

diff --git a/lily/translator-scheme.cc b/lily/translator-scheme.cc
index 4e1b7dfb4f675b60ce42149533e821f16b53a480..35054fd0d2f20728d41fdd39bf2ec1e5f7f109eb 100644 (file)
--- a/lily/translator-scheme.cc
+++ b/lily/translator-scheme.cc
@@ -36,7 +36,7 @@ LY_DEFINE (ly_translator_description, "ly:translator-description",
 int
 Translator::print_smob (SCM s, SCM port, scm_print_state *)
 {
-  Translator *me = (Translator*) scm_cdr (s);
+  Translator *me = (Translator*) SCM_CELL_WORD_1 (s);
   scm_puts ("#<Translator ", port);
   scm_puts (classname (me), port);
   scm_puts (" >", port);