+ LY_ASSERT_SMOB (Moment, a, 1);
+ LY_ASSERT_SMOB (Moment, b, 2);
+
+ Moment *ma = unsmob_moment (a);
+ Moment *mb = unsmob_moment (b);
+
+ return (*ma / * mb).smobbed_copy ();
+}
+
+LY_DEFINE (ly_moment_mod, "ly:moment-mod",
+ 2, 0, 0, (SCM a, SCM b),
+ "Modulo of two moments.")
+{
+ LY_ASSERT_SMOB (Moment, a, 1);
+ LY_ASSERT_SMOB (Moment, b, 2);
+