+public:
+ DECLARE_SCHEME_CALLBACK (relative_callback, (SCM, SCM));
+};
+
+MAKE_SCHEME_CALLBACK (Relative_octave_check, relative_callback, 2)
+SCM
+Relative_octave_check::relative_callback (SCM music, SCM last_pitch)
+{
+ Pitch p = *unsmob<Pitch> (last_pitch);
+ Music *m = unsmob<Music> (music);
+ Pitch *check_p = unsmob<Pitch> (m->get_property ("pitch"));