X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fsimple-closure.cc;h=737bb3965be6e09ef6f9b09a2938bb582834c0eb;hb=375279298392a64be4f415b058fff88b3523540a;hp=f473b30e47e446d79922cbcdd9c8d81bad69e84d;hpb=f9214bac21e9926dc3248416f58190c98c4167a9;p=lilypond.git diff --git a/lily/simple-closure.cc b/lily/simple-closure.cc index f473b30e47..737bb3965b 100644 --- a/lily/simple-closure.cc +++ b/lily/simple-closure.cc @@ -83,30 +83,31 @@ evaluate_with_simple_closure (SCM delayed_argument, return SCM_EOL; } -LY_DEFINE(ly_simple_closure_p, "ly:simple-closure?", +LY_DEFINE (ly_simple_closure_p, "ly:simple-closure?", 1,0,0, (SCM clos), "Type predicate.") { return scm_from_bool (is_simple_closure (clos)); } -LY_DEFINE(ly_make_simple_closure, "ly:make-simple-closure", +LY_DEFINE (ly_make_simple_closure, "ly:make-simple-closure", 1, 0, 0, (SCM expr), - "Make a simple closure. @var{expr} should be form of " - "@code{(@var{func} @var{a1} @var{A2} ...)}, and will be invoked " - "as @code{(@var{func} @var{delayed-arg} @var{a1} @var{a2} ... )}.") + "Make a simple closure. @var{expr} should be form of" + " @code{(@var{func} @var{a1} @var{A2} @dots{})}, and will be" + " invoked as @code{(@var{func} @var{delayed-arg} @var{a1}" + " @var{a2} @dots{})}.") { SCM z; - SCM_NEWSMOB(z, simple_closure_tag, expr); + SCM_NEWSMOB (z, simple_closure_tag, expr); return z; } -LY_DEFINE(ly_eval_simple_closure, "ly:eval-simple-closure", +LY_DEFINE (ly_eval_simple_closure, "ly:eval-simple-closure", 2, 2, 0, (SCM delayed, SCM closure, SCM scm_start, SCM scm_end), - "Evaluate a simple closure with the given delayed argument. " - "If start and end are defined, evaluate it purely with those " - "start- and end-points.") + "Evaluate a simple @var{closure} with the given @var{delayed}" + " argument. If @var{scm-start} and @var{scm-end} are defined," + " evaluate it purely with those start and end points.") { bool pure = (scm_is_number (scm_start) && scm_is_number (scm_end)); int start = robust_scm2int (scm_start, 0);