]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/grace-music.cc
release: 1.5.7
[lilypond.git] / lily / grace-music.cc
index 27c88c6f7b66ab283946a1b23ca5ee1dad9f9c34..8fd0ff0d0b8c6cb0ab8da2346de6cec0bf2b8dd3 100644 (file)
@@ -19,17 +19,18 @@ Grace_music::compress (Moment m)
 Moment
 Grace_music::length_mom () const
 {
-  Moment l = Music_wrapper::length_mom ();
-  Moment gl;
-  gl.grace_part_ = l.main_part_ + l.grace_part_ ;
-  return gl;
+  Moment m ;
+  return m;
 }
 
 
 Moment
 Grace_music::start_mom () const
 {
-  return - length_mom ();
+  Moment l = Music_wrapper::length_mom ();
+  Moment gl;
+  gl.grace_part_ = -(l.main_part_ + l.grace_part_ );
+  return gl;
 }
 
 Grace_music::Grace_music ()