X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fmusic-scheme.cc;h=da81ec6381003493eef9217563e381e0ce226ed8;hb=57be7394ffa2e7d7ba6d60548dba563f3409d472;hp=b67c0c775dc022fee6f598c26403dda83ec82c7d;hpb=a111927561fea3a5364a48ec2c41fa2c35323295;p=lilypond.git diff --git a/lily/music-scheme.cc b/lily/music-scheme.cc index b67c0c775d..da81ec6381 100644 --- a/lily/music-scheme.cc +++ b/lily/music-scheme.cc @@ -160,16 +160,13 @@ LY_DEFINE (ly_music_duration_length, "ly:music-duration-length", 1, 0, 0, SCM_ASSERT_TYPE (m, mus, SCM_ARG1, __FUNCTION__, "Music"); Duration *d = unsmob_duration (m->get_property ("duration")); - - Moment l; + Moment len; if (d) - { - l = d->get_length (); - } + len = d->get_length (); else - programming_error ("Music has no duration"); - return l.smobbed_copy (); + programming_error ("music has no duration"); + return len.smobbed_copy (); } LY_DEFINE (ly_music_duration_compress, "ly:music-duration-compress", 2, 0, 0,