release: 1.5.17

[lilypond.git] / lily / music.cc

diff --git a/lily/music.cc b/lily/music.cc
index ca3f8fe813c39dc17b5a106ce977123eb7a8ea6b..d3f5cdb4a804f75d28f2fd521289fcb5c3827ad7 100644 (file)
--- a/lily/music.cc
+++ b/lily/music.cc
@@ -101,9 +101,9 @@ print_alist (SCM a, SCM port)
 {
   for (SCM s = a; gh_pair_p (s); s = ly_cdr (s))
     {
-      scm_display (gh_caar (s), port);
+      scm_display (ly_caar (s), port);
       scm_puts (" = ", port); 
-      scm_write (gh_cdar (s), port);
+      scm_write (ly_cdar (s), port);
       scm_puts ("\n", port);
     }
 }
@@ -135,7 +135,7 @@ Music::transpose (Pitch)
 }
 
 IMPLEMENT_TYPE_P (Music, "music?");
-IMPLEMENT_UNSMOB (Music,music);
+
 IMPLEMENT_SMOBS (Music);
 IMPLEMENT_DEFAULT_EQUAL_P (Music);