parser: change order of arguments for context-specification constructor

diff --git a/lily/parser.yy b/lily/parser.yy
index 670e1a82fa12ba4c77f8b7e1bf12d22131fd189c..f6baa9986889d1d1db835e233bc5c45db81a404b 100644 (file)
--- a/lily/parser.yy
+++ b/lily/parser.yy
@@ -1313,14 +1313,14 @@ complex_music:
                 SCM mods = SCM_EOL;
                 if (ctxmod)
                         mods = ctxmod->get_mods ();
-               $$ = MAKE_SYNTAX ("context-specification", @$, $2, $3, $5, mods, SCM_BOOL_F);
+               $$ = MAKE_SYNTAX ("context-specification", @$, $2, $3, mods, SCM_BOOL_F, $5);
        }
        | NEWCONTEXT simple_string optional_id optional_context_mod music {
                 Context_mod *ctxmod = unsmob_context_mod ($4);
                 SCM mods = SCM_EOL;
                 if (ctxmod)
                         mods = ctxmod->get_mods ();
-               $$ = MAKE_SYNTAX ("context-specification", @$, $2, $3, $5, mods, SCM_BOOL_T);
+               $$ = MAKE_SYNTAX ("context-specification", @$, $2, $3, mods, SCM_BOOL_T, $5);
        }
 
        | TIMES fraction music {
@@ -1347,7 +1347,7 @@ mode_changed_music:
                 SCM mods = SCM_EOL;
                 if (ctxmod)
                         mods = ctxmod->get_mods ();
-               $$ = MAKE_SYNTAX ("context-specification", @$, $1, SCM_EOL, $3, mods, SCM_BOOL_T);
+               $$ = MAKE_SYNTAX ("context-specification", @$, $1, SCM_EOL, mods, SCM_BOOL_T, $3);
                if ($1 == ly_symbol2scm ("ChordNames"))
                {
                  $$ = MAKE_SYNTAX ("unrelativable-music", @$, $$);

diff --git a/scm/ly-syntax-constructors.scm b/scm/ly-syntax-constructors.scm
index f7f89cd0e1bb751ed2f676ba8b3ccf34de37e796..ebd0a605a0c37b1cf1844e84b55d059354ecee31 100644 (file)
--- a/scm/ly-syntax-constructors.scm
+++ b/scm/ly-syntax-constructors.scm
@@ -155,7 +155,7 @@ into a @code{MultiMeasureTextEvent}."
              'element (repetition-function previous-chord location duration articulations)
              'origin location))
 
-(define-ly-syntax-simple (context-specification type id mus ops create-new)
+(define-ly-syntax-simple (context-specification type id ops create-new mus)
   (let* ((type-sym (if (symbol? type) type (string->symbol type)))
         (csm (context-spec-music mus type-sym id)))
     (set! (ly:music-property csm 'property-operations) ops)