release: 1.5.36

[lilypond.git] / lily / duration.cc

diff --git a/lily/duration.cc b/lily/duration.cc
index d04491af592f58df77e54a6bdfaf9498c7128c3a..c46afab1080e9078d1661f080dd9e30c30d56224 100644 (file)
--- a/lily/duration.cc
+++ b/lily/duration.cc
@@ -131,6 +131,9 @@ Duration::less_p (SCM p1, SCM p2)
 static SCM
 make_duration (SCM l, SCM d)
 {
+  SCM_ASSERT_TYPE(gh_number_p(l), l, SCM_ARG1, __FUNCTION__, "integer");
+  SCM_ASSERT_TYPE(gh_number_p(d), d, SCM_ARG2, __FUNCTION__, "integer");
+  
   Duration p (gh_scm2int (l), gh_scm2int (d));
   return p.smobbed_copy ();
 }