From: Jürgen Reuter <j@web.de>
Date: Sun, 20 Feb 2005 23:28:12 +0000 (+0000)
Subject: 	* lily/duration-scheme.cc: bugfix: correct parameters to
X-Git-Tag: release/2.5.14~108
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=51dd610fd06e1a5ebb8a8e84d13abd83feaafd55;p=lilypond.git

	* lily/duration-scheme.cc: bugfix: correct parameters to
	SCM_ASSERT_TYPE.
---

diff --git a/ChangeLog b/ChangeLog
index 03e7e41656..858cc15bd1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2005-02-21  Jürgen Reuter  <reuter@ipd.uka.de>
+
+	* lily/duration-scheme.cc: bugfix: correct parameters to
+	SCM_ASSERT_TYPE.
+
 2005-02-20  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
 	* Documentation/topdocs/NEWS.tely: add inputfileref macro.
diff --git a/lily/duration-scheme.cc b/lily/duration-scheme.cc
index 6075fd780b..0ecf130acf 100644
--- a/lily/duration-scheme.cc
+++ b/lily/duration-scheme.cc
@@ -68,7 +68,7 @@ LY_DEFINE (ly_make_duration, "ly:make-duration",
   bool compress = false;
   if (num != SCM_UNDEFINED)
     {
-      SCM_ASSERT_TYPE (scm_is_number (num), length, SCM_ARG3, __FUNCTION__, "integer");
+      SCM_ASSERT_TYPE (scm_is_number (num), num, SCM_ARG3, __FUNCTION__, "integer");
       compress = true;
     }
   else
@@ -76,7 +76,7 @@ LY_DEFINE (ly_make_duration, "ly:make-duration",
 
   if (den != SCM_UNDEFINED)
     {
-      SCM_ASSERT_TYPE (scm_is_number (den), length, SCM_ARG4, __FUNCTION__, "integer");
+      SCM_ASSERT_TYPE (scm_is_number (den), den, SCM_ARG4, __FUNCTION__, "integer");
       compress = true;
     }
   else