+ Rational main_part_;
+ Rational grace_part_;
+
+ void set_infinite (int k);
+
+ bool to_bool () const;
+ int den () const;
+ int num () const;
+ /*
+ Deliver a copy of THIS as a smobified SCM
+ */
+ string to_string () const;
+ static int compare (Moment const &, Moment const &);
+ SCM as_scheme () const;
+};
+
+IMPLEMENT_ARITHMETIC_OPERATOR (Moment, +);
+IMPLEMENT_ARITHMETIC_OPERATOR (Moment, -);
+IMPLEMENT_ARITHMETIC_OPERATOR (Moment, /);
+IMPLEMENT_ARITHMETIC_OPERATOR (Moment, *);
+IMPLEMENT_ARITHMETIC_OPERATOR (Moment, %);
+
+DECLARE_UNSMOB (Moment, moment);
+int compare (Moment const &, Moment const &);
+INSTANTIATE_COMPARE (Moment const &, Moment::compare);