]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/dimensions-scheme.cc
remove obsolete comment
[lilypond.git] / lily / dimensions-scheme.cc
index 0d6ed607f75eab756d499e74e55d2b36b6bc2401..4025b4078a5d24be0d19db771153e42c2f8e987e 100644 (file)
@@ -14,8 +14,7 @@ LY_DEFINE (ly_pt, "ly:pt",
           1, 0, 0, (SCM num),
           "@var{num} printer points")
 {
-  SCM_ASSERT_TYPE (scm_is_number (num), num, SCM_ARG1, __FUNCTION__,
-                  "number");
+  LY_ASSERT_TYPE (scm_is_number, num, 1);
   return scm_from_double (point_constant
                          * scm_to_double (num));
 }
@@ -24,8 +23,7 @@ LY_DEFINE (ly_cm, "ly:cm",
           1, 0, 0, (SCM num),
           "@var{num} cm")
 {
-  SCM_ASSERT_TYPE (scm_is_number (num), num, SCM_ARG1, __FUNCTION__,
-                  "number");
+  LY_ASSERT_TYPE (scm_is_number, num, 1);
   return scm_from_double (cm_constant
                          * scm_to_double (num));
 }
@@ -34,8 +32,7 @@ LY_DEFINE (ly_inch, "ly:inch",
           1, 0, 0, (SCM num),
           "@var{num} inches")
 {
-  SCM_ASSERT_TYPE (scm_is_number (num), num, SCM_ARG1, __FUNCTION__,
-                  "number");
+  LY_ASSERT_TYPE (scm_is_number, num, 1);
   return scm_from_double (inch_constant
                          * scm_to_double (num));
 }
@@ -44,8 +41,7 @@ LY_DEFINE (ly_mm, "ly:mm",
           1, 0, 0, (SCM num),
           "@var{num} mm")
 {
-  SCM_ASSERT_TYPE (scm_is_number (num), num, SCM_ARG1, __FUNCTION__,
-                  "number");
+  LY_ASSERT_TYPE (scm_is_number, num, 1);
   return scm_from_double (mm_constant
                          * scm_to_double (num));
 }
@@ -54,8 +50,7 @@ LY_DEFINE (ly_bp, "ly:bp",
           1, 0, 0, (SCM num),
           "@var{num} bigpoints (1/72th inch)")
 {
-  SCM_ASSERT_TYPE (scm_is_number (num), num, SCM_ARG1, __FUNCTION__,
-                  "number");
+  LY_ASSERT_TYPE (scm_is_number, num, 1);
   return scm_from_double (bigpoint_constant
                          * scm_to_double (num));
 }