X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fmusic-function-scheme.cc;h=8470a97005e4d57db4c57203ee108459b217bc26;hb=05f05a51ca0078ce9a8c87cbf30ac7fbd4def706;hp=c22634f1522d370fd5fd099a1c4485c01f35291a;hpb=b80683cc94b0c22bbe3fccb94a9b2e23787fd10b;p=lilypond.git diff --git a/lily/music-function-scheme.cc b/lily/music-function-scheme.cc index c22634f152..8470a97005 100644 --- a/lily/music-function-scheme.cc +++ b/lily/music-function-scheme.cc @@ -1,30 +1,30 @@ #include "music-function.hh" LY_DEFINE (ly_music_function_p, "ly:music-function?", 1, 0, 0, - (SCM x), - "Is @var{x} a @code{music-function}?") + (SCM x), + "Is @var{x} a @code{music-function}?") { return is_music_function (x) ? SCM_BOOL_T : SCM_BOOL_F; } - + LY_DEFINE (ly_music_function_extract, "ly:music-function-extract", 1, 0, 0, - (SCM x), - "Return the Scheme function inside@tie{}@var{x}.") + (SCM x), + "Return the Scheme function inside@tie{}@var{x}.") { LY_ASSERT_TYPE (is_music_function, x, 1); - - return SCM_CELL_OBJECT_1(x); + + return SCM_CELL_OBJECT_1 (x); } LY_DEFINE (ly_make_music_function, "ly:make-music-function", 2, 0, 0, - (SCM signature, SCM func), - "Make a function to process music, to be used for the" - " parser. @code{func} is the function, and @code{signature}" - " describes its arguments. @code{signature} is a list" - " containing either @code{ly:music?} predicates or other type" - " predicates.") + (SCM signature, SCM func), + "Make a function to process music, to be used for the" + " parser. @var{func} is the function, and @var{signature}" + " describes its arguments. @var{signature}'s cdr is a list" + " containing either @code{ly:music?} predicates or other type" + " predicates. Its car is the syntax function to call.") { LY_ASSERT_TYPE (ly_is_procedure, func, 1); - return make_music_function (signature, func); + return make_music_function (signature, func); }