Run grand-replace (issue 3765)

[lilypond.git] / lily / moment.cc

diff --git a/lily/moment.cc b/lily/moment.cc
index 1a646b9735ce08eb9fb9b11035d812da5db1c010..e1e3478c6ed71e607619cdb2bba6ce26074f2374 100644 (file)
--- a/lily/moment.cc
+++ b/lily/moment.cc
@@ -1,7 +1,7 @@
 /*
   This file is part of LilyPond, the GNU music typesetter.
 
-  Copyright (C) 1999--2011 Han-Wen Nienhuys <hanwen@xs4all.nl>
+  Copyright (C) 1999--2014 Han-Wen Nienhuys <hanwen@xs4all.nl>
 
   LilyPond is free software: you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
@@ -71,10 +71,10 @@ SCM
 Moment::as_scheme () const
 {
   return scm_list_5 (ly_symbol2scm ("ly:make-moment"),
-                    scm_from_int64 (main_part_.num ()),
-                    scm_from_int64 (main_part_.den ()),
-                    scm_from_int64 (grace_part_.num ()),
-                    scm_from_int64 (grace_part_.den ()));
+                     scm_from_int64 (main_part_.num ()),
+                     scm_from_int64 (main_part_.den ()),
+                     scm_from_int64 (grace_part_.num ()),
+                     scm_from_int64 (grace_part_.den ()));
 }
 
 SCM
@@ -159,18 +159,6 @@ Moment::to_bool () const
   return main_part_ || grace_part_;
 }
 
-Rational
-Moment::main_part () const
-{
-  return main_part_;
-}
-
-Rational
-Moment::grace_part () const
-{
-  return grace_part_;
-}
-
 void
 Moment::set_infinite (int k)
 {
@@ -219,3 +207,4 @@ moment_less (SCM a, SCM b)
 {
   return *unsmob_moment (a) < *unsmob_moment (b);
 }
+