X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fdimensions-scheme.cc;h=c64b901f8fe2d416b4a3f5c8a7a36dbfea071d32;hb=0f491fbd52e8a7b5160e980eb700847932089778;hp=0d6ed607f75eab756d499e74e55d2b36b6bc2401;hpb=16cb456cabf477f6d398ff731aa0f10b60913394;p=lilypond.git diff --git a/lily/dimensions-scheme.cc b/lily/dimensions-scheme.cc index 0d6ed607f7..c64b901f8f 100644 --- a/lily/dimensions-scheme.cc +++ b/lily/dimensions-scheme.cc @@ -12,50 +12,45 @@ LY_DEFINE (ly_pt, "ly:pt", 1, 0, 0, (SCM num), - "@var{num} printer points") + "@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)); } LY_DEFINE (ly_cm, "ly:cm", 1, 0, 0, (SCM num), - "@var{num} cm") + "@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)); } LY_DEFINE (ly_inch, "ly:inch", 1, 0, 0, (SCM num), - "@var{num} inches") + "@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)); } LY_DEFINE (ly_mm, "ly:mm", 1, 0, 0, (SCM num), - "@var{num} mm") + "@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)); } LY_DEFINE (ly_bp, "ly:bp", 1, 0, 0, (SCM num), - "@var{num} bigpoints (1/72th inch)") + "@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)); }