-
-MAKE_SCHEME_CALLBACK(Duration, less_p, 2);
-SCM
-Duration::less_p (SCM p1, SCM p2)
-{
- Duration *a = unsmob_duration (p1);
- Duration *b = unsmob_duration (p2);
-
- if (compare(*a, *b) < 0 )
- return SCM_BOOL_T;
- else
- return SCM_BOOL_F;
-}
-
-
-static SCM
-make_duration (SCM l, SCM d)
-{
- Duration p( gh_scm2int (l), gh_scm2int (d));
- return p.smobbed_copy ();
-}
-
-static void
-add_funcs()
-{
- scm_make_gsubr ("make-duration", 2, 0, 0, (Scheme_function_unknown)make_duration);
-}
-
-ADD_SCM_INIT_FUNC(duration, add_funcs);
-
-SCM
-Duration::smobbed_copy ()const
-{
- Duration * p = new Duration (*this);
- return p->smobbed_self ();
-}