+LY_DEFINE (ly_duration_length, "ly:duration-length",
+ 1, 0, 0, (SCM dur),
+ "The length of the duration as a @code{moment}.")
+{
+ LY_ASSERT_SMOB (Duration, dur, 1);
+ return Moment (unsmob_duration (dur)->get_length ()).smobbed_copy ();
+}
+
+LY_DEFINE (ly_duration_2_string, "ly:duration->string",
+ 1, 0, 0, (SCM dur),
+ "Convert @var{dur} to a string.")
+{
+ LY_ASSERT_SMOB (Duration, dur, 1);
+ return ly_string2scm (unsmob_duration (dur)->to_string ());
+}
+