From 1cef65ddb9511062a1eb66585e6d650a8fbeade3 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Wed, 5 May 2004 18:17:28 +0000 Subject: [PATCH] * lily/music-head.cc (LY_DEFINE): change order of args. * input/regression/music-head.ly (texidoc): new file. * lily/music-head.cc (get_music_head_transform): new file. --- ChangeLog | 2 ++ input/regression/music-head.ly | 2 +- lily/music-head.cc | 2 +- 3 files changed, 4 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 6fdd422bb1..6b1f9dea61 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,7 @@ 2004-05-05 Han-Wen Nienhuys + * lily/music-head.cc (LY_DEFINE): change order of args. + * input/regression/music-head.ly (texidoc): new file. * lily/parser.yy (Generic_prefix_music): allow generic diff --git a/input/regression/music-head.ly b/input/regression/music-head.ly index 63b84bd8ba..42a33c1553 100644 --- a/input/regression/music-head.ly +++ b/input/regression/music-head.ly @@ -8,11 +8,11 @@ which can be used to extend music syntax seamlessly." #(define myBar (ly:make-music-head + (list string?) (lambda (where type) (context-spec-music (context-spec-music (make-property-set 'whichBar type) 'Timing) 'Score)) - (list string?) )) diff --git a/lily/music-head.cc b/lily/music-head.cc index 0e104eb9ff..3deb46d1d7 100644 --- a/lily/music-head.cc +++ b/lily/music-head.cc @@ -28,7 +28,7 @@ print_music_head (SCM b, SCM port, scm_print_state *) LY_DEFINE (ly_make_music_head, "ly:make-music-head", 2, 0, 0, - (SCM func, SCM signature), + (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 " -- 2.39.5