-
-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_c_define_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 ();
-}