X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fdimensions-scheme.cc;h=278610780f54b7ee3ec04d2049370a427680a268;hb=16e626a8524421eda692cb19be6d0ec5bff723b7;hp=3524faf49b7cf6af8be077eeaaa4281687a8796e;hpb=55ac733b69643a6bc6a83b706c65cb56efd388ef;p=lilypond.git diff --git a/lily/dimensions-scheme.cc b/lily/dimensions-scheme.cc index 3524faf49b..278610780f 100644 --- a/lily/dimensions-scheme.cc +++ b/lily/dimensions-scheme.cc @@ -22,46 +22,46 @@ #include "warn.hh" LY_DEFINE (ly_pt, "ly:pt", - 1, 0, 0, (SCM num), - "@var{num} printer points.") + 1, 0, 0, (SCM num), + "@var{num} printer points.") { LY_ASSERT_TYPE (scm_is_number, num, 1); return scm_from_double (point_constant - * scm_to_double (num)); + * scm_to_double (num)); } LY_DEFINE (ly_cm, "ly:cm", - 1, 0, 0, (SCM num), - "@var{num} cm.") + 1, 0, 0, (SCM num), + "@var{num} cm.") { LY_ASSERT_TYPE (scm_is_number, num, 1); return scm_from_double (cm_constant - * scm_to_double (num)); + * scm_to_double (num)); } LY_DEFINE (ly_inch, "ly:inch", - 1, 0, 0, (SCM num), - "@var{num} inches.") + 1, 0, 0, (SCM num), + "@var{num} inches.") { LY_ASSERT_TYPE (scm_is_number, num, 1); return scm_from_double (inch_constant - * scm_to_double (num)); + * scm_to_double (num)); } LY_DEFINE (ly_mm, "ly:mm", - 1, 0, 0, (SCM num), - "@var{num} mm.") + 1, 0, 0, (SCM num), + "@var{num} mm.") { LY_ASSERT_TYPE (scm_is_number, num, 1); return scm_from_double (mm_constant - * scm_to_double (num)); + * scm_to_double (num)); } LY_DEFINE (ly_bp, "ly:bp", - 1, 0, 0, (SCM num), - "@var{num} bigpoints (1/72th inch).") + 1, 0, 0, (SCM num), + "@var{num} bigpoints (1/72th inch).") { LY_ASSERT_TYPE (scm_is_number, num, 1); return scm_from_double (bigpoint_constant - * scm_to_double (num)); + * scm_to_double (num)); }