X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fgrace-music.cc;h=51ea066f1a46756a0a1cacbed782b8d08c033860;hb=8f5cd22af76fcb5c77853a5ede8b94ebef97caef;hp=358efcdd3aa7fa616c1fe8794aeeb27f8e9ef98a;hpb=4034396f1e07d5453d81103532bcc2969e131b92;p=lilypond.git diff --git a/lily/grace-music.cc b/lily/grace-music.cc index 358efcdd3a..51ea066f1a 100644 --- a/lily/grace-music.cc +++ b/lily/grace-music.cc @@ -1,10 +1,9 @@ -/* - grace-music.cc -- implement Grace_music - - source file of the GNU LilyPond music typesetter - - (c) 1999--2004 Han-Wen Nienhuys - +/* + grace-music.cc -- implement Grace_music + + source file of the GNU LilyPond music typesetter + + (c) 1999--2006 Han-Wen Nienhuys */ #include "music.hh" @@ -13,15 +12,15 @@ class Grace_music { public: - DECLARE_SCHEME_CALLBACK(start_callback, (SCM)); + DECLARE_SCHEME_CALLBACK (start_callback, (SCM)); }; -MAKE_SCHEME_CALLBACK(Grace_music,start_callback,1); +MAKE_SCHEME_CALLBACK (Grace_music, start_callback, 1); SCM -Grace_music::start_callback (SCM m) +Grace_music::start_callback (SCM m) { Moment *l = unsmob_moment (Music_wrapper::length_callback (m)); Moment gl; - gl.grace_part_ = -(l->main_part_ + l->grace_part_ ); + gl.grace_part_ = -(l->main_part_ + l->grace_part_); return gl.smobbed_copy (); }