X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fmusic-scheme.cc;h=26e26092b6289a194b96ecddf2957117a85b8759;hb=83c269ea982eea8b8b97c021844b3dfa91b56649;hp=34545fa911d33da5293c4c656e2342da1d4ad329;hpb=151736d38b944c26870f4d208c77112b102b78b3;p=lilypond.git diff --git a/lily/music-scheme.cc b/lily/music-scheme.cc index 34545fa911..26e26092b6 100644 --- a/lily/music-scheme.cc +++ b/lily/music-scheme.cc @@ -160,23 +160,22 @@ LY_DEFINE (ly_music_compress, "ly:music-compress", } LY_DEFINE (ly_make_music_relative_x, "ly:make-music-relative!", - 2, 0, 0, (SCM music, SCM pitch), - "Make @var{music} relative to @var{pitch}," - " return final pitch.") + 2, 0, 0, (SCM music, SCM pitch), + "Make @var{music} relative to @var{pitch}," + " return final pitch.") { LY_ASSERT_TYPE (unsmob_music, music, 1); LY_ASSERT_TYPE (unsmob_pitch, pitch, 2); - Pitch start = *unsmob_pitch (pitch); - Music *m = unsmob_music (music); - Pitch last = m->to_relative_octave (start); - if (lily_1_8_relative) - m->set_property ("last-pitch", last.smobbed_copy ()); + Pitch start = *unsmob_pitch (pitch); + Music *m = unsmob_music (music); + Pitch last = m->to_relative_octave (start); + if (lily_1_8_relative) + m->set_property ("last-pitch", last.smobbed_copy ()); - return last.smobbed_copy (); + return last.smobbed_copy (); } - LY_DEFINE (ly_music_duration_length, "ly:music-duration-length", 1, 0, 0, (SCM mus), "Extract the duration field from @var{mus} and return the"