X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fprob-scheme.cc;h=3f729e4894c4407d89536817efffa23eb31e4609;hb=3f8485925e8c879fe4c9ae86acef9804126c3b91;hp=a9838bb4353be12aafaea4ef3a315bbf19f477d3;hpb=9a42b64734dac35b2bdc5170bb2343f2d090a757;p=lilypond.git diff --git a/lily/prob-scheme.cc b/lily/prob-scheme.cc index a9838bb435..3f729e4894 100644 --- a/lily/prob-scheme.cc +++ b/lily/prob-scheme.cc @@ -37,7 +37,7 @@ LY_DEFINE (ly_prob_property, "ly:prob-property", { LY_ASSERT_SMOB (Prob, obj, 1); Prob *ps = unsmob_prob (obj); - LY_ASSERT_TYPE (ly_is_symbol,sym, 2); + LY_ASSERT_TYPE (ly_is_symbol, sym, 2); if (dfault == SCM_UNDEFINED) dfault = SCM_EOL; @@ -55,7 +55,7 @@ LY_DEFINE (ly_prob_type_p, "ly:prob-type?", "If obj the specified prob-type?") { Prob*prob = unsmob_prob (obj); - return scm_from_bool (prob && prob->type() == type); + return scm_from_bool (prob && prob->type () == type); } LY_DEFINE (ly_make_prob, "ly:make-prob", @@ -78,7 +78,7 @@ LY_DEFINE (ly_make_prob, "ly:make-prob", } -LY_DEFINE(ly_paper_system_p, "ly:paper-system?", +LY_DEFINE (ly_paper_system_p, "ly:paper-system?", 1, 0, 0, (SCM obj), "Type predicate.") {