* lily/prob-scheme.cc (LY_DEFINE): new file.

[lilypond.git] / lily / music.cc

diff --git a/lily/music.cc b/lily/music.cc
index cba10da79c9f84b917b82d46caf2449be656618f..cf48775f00ee06fb0ac2d74f33a1dc4b255793d2 100644 (file)
--- a/lily/music.cc
+++ b/lily/music.cc
@@ -32,7 +32,7 @@ Music::internal_is_music_type (SCM k) const
 }
 
 Music::Music (SCM init)
-  : Prob (init)
+  : Prob (ly_symbol2scm ("Music"), init)
 {
   length_callback_ = SCM_EOL;
   start_callback_ = SCM_EOL;
@@ -219,8 +219,6 @@ Music::transpose (Pitch delta)
     set_property ("pitch-alist", ly_transpose_key_alist (pa, delta.smobbed_copy ()));
 }
 
-
-
 void
 Music::set_spot (Input ip)
 {