]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/grace-music.cc
Run `make grand-replace'.
[lilypond.git] / lily / grace-music.cc
index 358efcdd3aa7fa616c1fe8794aeeb27f8e9ef98a..899dae7dcff1c55e582e93133db6da566845cc24 100644 (file)
@@ -1,10 +1,9 @@
-/*   
-     grace-music.cc --  implement Grace_music
-  
-     source file of the GNU LilyPond music typesetter
-  
-     (c) 1999--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
-  
+/*
+  grace-music.cc -- implement Grace_music
+
+  source file of the GNU LilyPond music typesetter
+
+  (c) 1999--2008 Han-Wen Nienhuys <hanwen@xs4all.nl>
 */
 
 #include "music.hh"
 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 ();
 }