X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fmusic-function-scheme.cc;fp=lily%2Fmusic-function-scheme.cc;h=f78a387336021f9c1166aec680b9fb1cae610e5c;hb=4a401ca1c60f428daa242dbdd102fdb3f327ebfb;hp=b6473b19d190395c80030a1addb5c2dec702d364;hpb=1c72394c0ae30ba289f869059ec2532eac8d4015;p=lilypond.git diff --git a/lily/music-function-scheme.cc b/lily/music-function-scheme.cc index b6473b19d1..f78a387336 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. @var{func} is the function, and @var{signature}" - " describes its arguments. @var{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} is a list" + " containing either @code{ly:music?} predicates or other type" + " predicates.") { LY_ASSERT_TYPE (ly_is_procedure, func, 1); - return make_music_function (signature, func); + return make_music_function (signature, func); }