(c) 1999--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
-#include "lily-guile.hh"
#include "moment.hh"
-#include "warn.hh"
+#include "warn.hh"
Moment::Moment ()
{
return 1;
}
+SCM
+Moment::as_scheme () const
+{
+ return scm_list_5 (ly_symbol2scm ("ly:make-moment"),
+ scm_from_int (main_part_.num()),
+ scm_from_int (main_part_.den()),
+ scm_from_int (grace_part_.num()),
+ scm_from_int (grace_part_.den()));
+}
+
/* TODO: add optional factor argument. */
LY_DEFINE (ly_make_moment, "ly:make-moment",
2, 2, 0, (SCM n, SCM d, SCM gn, SCM gd),
Moment
robust_scm2moment (SCM m, Moment d)
{
- Moment * p = unsmob_moment (m);
+ Moment *p = unsmob_moment (m);
if (!p)
return d;
else
bool
moment_less (SCM a, SCM b)
{
- return *unsmob_moment (a) < *unsmob_moment (b);
+ return *unsmob_moment (a) < *unsmob_moment (b);
}