(determine-split-list): analysis has

[lilypond.git] / lily / duration.cc

diff --git a/lily/duration.cc b/lily/duration.cc
index 3847353d2678cf09ad68b8a9b4acea301ec02a7a..6443153f5166ae8e02cf101f2ef3cd8aeb711b3f 100644 (file)
--- a/lily/duration.cc
+++ b/lily/duration.cc
@@ -180,7 +180,10 @@ LY_DEFINE(make_duration,
     num = gh_int2scm (1);
   
   if (den != SCM_UNDEFINED)
-    SCM_ASSERT_TYPE(gh_number_p (den), length, SCM_ARG4, __FUNCTION__, "integer");
+    {
+      SCM_ASSERT_TYPE(gh_number_p (den), length, SCM_ARG4, __FUNCTION__, "integer");
+      compress = true;
+    }
   else
     den = gh_int2scm (1);