#define is_mus_type(x) internal_is_music_type (ly_symbol2scm (x))
-class Music : public Prob
+struct Preinit_Music {
+ SCM length_callback_;
+ SCM start_callback_;
+ Preinit_Music ();
+};
+
+class Music : Preinit_Music, public Prob
{
public:
Music (SCM init);
virtual void type_check_assignment (SCM, SCM) const;
virtual void derived_mark () const;
protected:
- SCM length_callback_;
- SCM start_callback_;
friend SCM ly_extended_make_music (SCM, SCM);
};
extern SCM ly_music_p_proc;
-/* common transposition function for music and event */
-void transpose_mutable (SCM alist, Pitch delta);
-
#endif /* MUSIC_HH */