- Moment m (Rational (1,1));
-
- if (SCM_INUMP (n) && SCM_INUMP (d))
- {
- m = Moment (Rational (gh_scm2int (n), gh_scm2int (d)));
- }
- else
- {
- ::error ("make-moment takes two integer arguments. Using 1/1");
- }
-
- return m.smobbed_copy ();
-}
-
-
-void
-init_moments ()
-{
- scm_c_define_gsubr ("make-moment", 2 , 0, 0, (Scheme_function_unknown) make_rational);
+ 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 ()));