patch::: 1.3.96.jcn9

[lilypond.git] / lily / moment.cc

diff --git a/lily/moment.cc b/lily/moment.cc
index a224da0a1ca4a58ac7ec2012d0d3a7e0a791fe3b..ff21fb5ebffbf6f5a3a9befe24a4da8bdcc6c41c 100644 (file)
--- a/lily/moment.cc
+++ b/lily/moment.cc
@@ -11,12 +11,11 @@
 #include "lily-guile.hh"
 #include "moment.hh"
 #include "warn.hh"
-
 #include "ly-smobs.icc"
 
 IMPLEMENT_UNSMOB(Moment,moment);
 IMPLEMENT_SIMPLE_SMOBS(Moment);
-
+IMPLEMENT_TYPE_P (Moment, "moment?");
 
 SCM
 Moment::mark_smob (SCM)
@@ -67,7 +66,8 @@ make_rational (SCM n, SCM d)
 void
 init_moments ()
 {
-  scm_make_gsubr ("make-moment", 2 , 0, 0,  (SCM(*)(...)) make_rational);
+  scm_make_gsubr ("make-moment", 2 , 0, 0, (Scheme_function_unknown) make_rational);
+  scm_make_gsubr ("make-moment", 2 , 0, 0, (Scheme_function_unknown) make_rational);  
 }
 
 ADD_SCM_INIT_FUNC(moms,init_moments);