* lily/include/lily-lexer.hh (class Lily_lexer): lose hungarian _b

[lilypond.git] / lily / music.cc

diff --git a/lily/music.cc b/lily/music.cc
index 5183763f8ded12f58ec7a3bc73d6360763cfcff2..3ce9c302ce7b6331693784a170cd686c674c2a11 100644 (file)
--- a/lily/music.cc
+++ b/lily/music.cc
@@ -88,7 +88,9 @@ Music::get_length () const
   SCM lst = get_property ("length");
   if (unsmob_moment (lst))
     return *unsmob_moment (lst);
-  else if (ly_c_procedure_p (lst))
+
+  lst = get_property ("length-callback");
+  if (ly_c_procedure_p (lst))
     {
       SCM res = scm_call_1 (lst, self_scm ());
       return *unsmob_moment (res);