* 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.

diff --git a/ChangeLog b/ChangeLog
index 6fdd422bb1c8fb1a061e9a6f5581d8f3b343b238..6b1f9dea61802ebc9814649214cb9414cb618b33 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2004-05-05  Han-Wen Nienhuys   <hanwen@xs4all.nl>
 
+       * 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 63b84bd8bad80a0a6ea7d0e68b425313d0257377..42a33c1553ef74196727317f2274d242eeb5725d 100644 (file)
--- 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 0e104eb9ff2714f5a22334686555c04ce9bd1d4f..3deb46d1d73808b3d226b78b37dc21327c984b7b 100644 (file)
--- 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 "