X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fmoment.cc;h=df1a405779a90b499375e2aa4f108370d0f3c87e;hb=6dc515376e07af1160edd46b61c0fd235c65db7d;hp=1a646b9735ce08eb9fb9b11035d812da5db1c010;hpb=2fb262fb403b75907bdebbaf7fbb819733bf6355;p=lilypond.git diff --git a/lily/moment.cc b/lily/moment.cc index 1a646b9735..df1a405779 100644 --- 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 + Copyright (C) 1999--2012 Han-Wen Nienhuys 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); } +