* lily/parser.yy (command_element): reverse setting of

[lilypond.git] / lily / paper-book.cc

diff --git a/lily/paper-book.cc b/lily/paper-book.cc
index 6d2d6b328e4132e0e551b268d2734e0feab8d216..b557c83b924a7d937a6c39bb84c9309b16e2c702 100644 (file)
--- a/lily/paper-book.cc
+++ b/lily/paper-book.cc
@@ -53,7 +53,7 @@ Paper_book::mark_smob (SCM smob)
 int
 Paper_book::print_smob (SCM smob, SCM port, scm_print_state*)
 {
-  Paper_book *b = (Paper_book*) ly_cdr (smob);
+  Paper_book *b = (Paper_book*) SCM_CELL_WORD_1 (smob);
      
   scm_puts ("#<", port);
   scm_puts (classname (b), port);