X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fparser.yy;h=3b690e8980890b7ef3900723e8bf97ec8b6c7c60;hb=e34621159931fdbc7dff10973c2bc9ca38ab024c;hp=795639ae5b4e12eacfa02285035bd15299c4d65c;hpb=9f3572d98bb948c9689cd1f75401a029451fa001;p=lilypond.git

diff --git a/lily/parser.yy b/lily/parser.yy
index 795639ae5b..3b690e8980 100644
--- a/lily/parser.yy
+++ b/lily/parser.yy
@@ -3,12 +3,13 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 1997--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
+  (c) 1997--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
                  Jan Nieuwenhuizen <janneke@gnu.org>
 */
 
 %{
 
+#define YYDEBUG 1
 #define YYERROR_VERBOSE 1
 #define YYPARSE_PARAM my_lily_parser
 #define YYLEX_PARAM my_lily_parser
@@ -74,13 +75,11 @@ using namespace std;
 #include "context-def.hh"
 #include "dimensions.hh"
 #include "file-path.hh"
-#include "input-smob.hh"
 #include "input.hh"
 #include "international.hh"
 #include "lily-guile.hh"
 #include "lily-lexer.hh"
 #include "lily-parser.hh"
-#include "lilypond-input-version.hh"
 #include "main.hh"
 #include "misc.hh"
 #include "music.hh"
@@ -108,17 +107,18 @@ using namespace std;
 
 %{
 
-#define MY_MAKE_MUSIC(x)  make_music_by_name (ly_symbol2scm (x))
+#define MY_MAKE_MUSIC(x, spot)  make_music_with_input (ly_symbol2scm (x), spot)
 
 /* ES TODO:
 - Don't use lily module, create a new module instead.
 - delay application of the function
 */
+#define LOWLEVEL_MAKE_SYNTAX(proc, args)	\
+  scm_apply_0 (proc, args)
+/* Syntactic Sugar. */
 #define MAKE_SYNTAX(name, location, ...)	\
-  scm_apply_0 (ly_lily_module_constant (name), scm_list_n (make_input (location), __VA_ARGS__, SCM_UNDEFINED));
+  LOWLEVEL_MAKE_SYNTAX (ly_lily_module_constant (name), scm_list_n (PARSER->self_scm (), make_input (location), __VA_ARGS__, SCM_UNDEFINED));
 
-Music *property_op_to_music (SCM op);
-SCM context_spec_music (SCM type, SCM id, SCM m, SCM ops, bool create_new);
 SCM get_next_unique_context_id ();
 SCM get_next_unique_lyrics_context_id ();
 
@@ -131,14 +131,12 @@ SCM get_next_unique_lyrics_context_id ();
 #endif
 
 
-
-SCM make_lyric_combine_music (SCM name, SCM music);
-SCM make_music_relative (Pitch start, SCM music);
-Music *run_music_function (Lily_parser *, SCM expr);
-Music *set_property_music (SCM sym, SCM value);
+static Music *make_music_with_input (SCM name, Input where);
+SCM make_music_relative (Pitch start, SCM music, Input loc);
+SCM run_music_function (Lily_parser *, SCM expr);
 SCM get_first_context_id (SCM type, Music *m);
-SCM make_chord (SCM pitch, SCM dur, SCM modification_list);
-SCM make_chord_step (int step, int alter);
+SCM make_chord_elements (SCM pitch, SCM dur, SCM modification_list);
+SCM make_chord_step (int step, Rational alter);
 SCM make_simple_markup (SCM a);
 bool is_duration (int t);
 bool is_regular_identifier (SCM id);
@@ -158,10 +156,9 @@ void set_music_properties (Music *p, SCM a);
 /* Keyword tokens with plain escaped name.  */
 %token ACCEPTS "\\accepts"
 %token ADDLYRICS "\\addlyrics"
-%token ADDQUOTE "\\addquote"
 %token ALIAS "\\alias"
 %token ALTERNATIVE "\\alternative"
-%token BOOK "\book"
+%token BOOK "\\book"
 %token CHANGE "\\change"
 %token CHORDMODE "\\chordmode"
 %token CHORDS "\\chords"
@@ -185,6 +182,7 @@ void set_music_properties (Music *p, SCM a);
 %token LYRICSTO "\\lyricsto"
 %token MARK "\\mark"
 %token MARKUP "\\markup"
+%token MARKUPLINES "\\markuplines"
 %token MIDI "\\midi"
 %token NAME "\\name"
 %token NOTEMODE "\\notemode"
@@ -207,7 +205,6 @@ void set_music_properties (Music *p, SCM a);
 %token TEMPO "\\tempo"
 %token TIMES "\\times"
 %token TRANSPOSE "\\transpose"
-%token TRANSPOSITION "\\transposition"
 %token TYPE "\\type"
 %token UNSET "\\unset"
 %token WITH "\\with"
@@ -224,8 +221,10 @@ void set_music_properties (Music *p, SCM a);
 %token CHORD_COLON ":"
 %token CHORD_MINUS "-"
 %token CHORD_SLASH "/"
-%token DOUBLE_ANGLE_CLOSE ">>"
+%token ANGLE_OPEN "<"
+%token ANGLE_CLOSE ">"
 %token DOUBLE_ANGLE_OPEN "<<"
+%token DOUBLE_ANGLE_CLOSE ">>"
 %token E_BACKSLASH "\\"
 %token E_ANGLE_CLOSE "\\>"
 %token E_CHAR "\\C[haracter]"
@@ -250,13 +249,19 @@ If we give names, Bison complains.
 %token CHORDMODIFIERS
 %token LYRIC_MARKUP
 %token MULTI_MEASURE_REST
-%token SCM_T
 
 
 %token <i> DIGIT
 %token <i> E_UNSIGNED
 %token <i> UNSIGNED
 
+/* Artificial tokens, for more generic function syntax */
+%token <i> EXPECT_MARKUP;
+%token <i> EXPECT_MUSIC;
+%token <i> EXPECT_SCM;
+/* After the last argument. */
+%token <i> EXPECT_NO_MORE_ARGS;
+
 %token <scm> BOOK_IDENTIFIER
 %token <scm> CHORDMODIFIER_PITCH
 %token <scm> CHORD_MODIFIER
@@ -275,25 +280,15 @@ If we give names, Bison complains.
 %token <scm> MARKUP_HEAD_SCM0_MARKUP1
 %token <scm> MARKUP_HEAD_SCM0_SCM1
 %token <scm> MARKUP_HEAD_SCM0_SCM1_MARKUP2
+%token <scm> MARKUP_HEAD_SCM0_MARKUP1_MARKUP2
 %token <scm> MARKUP_HEAD_SCM0_SCM1_SCM2
+%token <scm> MARKUP_LIST_HEAD_EMPTY
+%token <scm> MARKUP_LIST_HEAD_LIST0
+%token <scm> MARKUP_LIST_HEAD_SCM0
+%token <scm> MARKUP_LIST_HEAD_SCM0_LIST1
+%token <scm> MARKUP_LIST_HEAD_SCM0_SCM1_LIST2
 %token <scm> MARKUP_IDENTIFIER
 %token <scm> MUSIC_FUNCTION
-%token <scm> MUSIC_FUNCTION_MARKUP 
-%token <scm> MUSIC_FUNCTION_MARKUP_MARKUP 
-%token <scm> MUSIC_FUNCTION_MARKUP_MARKUP_MUSIC 
-%token <scm> MUSIC_FUNCTION_MARKUP_MUSIC 
-%token <scm> MUSIC_FUNCTION_MARKUP_MUSIC_MUSIC 
-%token <scm> MUSIC_FUNCTION_MUSIC 
-%token <scm> MUSIC_FUNCTION_MUSIC_MUSIC 
-%token <scm> MUSIC_FUNCTION_SCM 
-%token <scm> MUSIC_FUNCTION_SCM_MUSIC 
-%token <scm> MUSIC_FUNCTION_SCM_MUSIC_MUSIC 
-%token <scm> MUSIC_FUNCTION_SCM_SCM_MUSIC_MUSIC 
-%token <scm> MUSIC_FUNCTION_SCM_SCM 
-%token <scm> MUSIC_FUNCTION_SCM_SCM_MUSIC 
-%token <scm> MUSIC_FUNCTION_SCM_SCM_SCM 
-%token <scm> MUSIC_FUNCTION_SCM_SCM_SCM_MUSIC 
-%token <scm> MUSIC_FUNCTION_SCM_SCM_SCM_SCM_MUSIC 
 %token <scm> MUSIC_IDENTIFIER
 %token <scm> NOTENAME_PITCH
 %token <scm> NUMBER_IDENTIFIER
@@ -301,7 +296,7 @@ If we give names, Bison complains.
 %token <scm> REAL
 %token <scm> RESTNAME
 %token <scm> SCM_IDENTIFIER
-%token <scm> SCM_T
+%token <scm> SCM_TOKEN
 %token <scm> SCORE_IDENTIFIER
 %token <scm> STRING
 %token <scm> STRING_IDENTIFIER
@@ -312,7 +307,7 @@ If we give names, Bison complains.
 %type <book> book_body
 
 %type <i> bare_unsigned
-%type <i> figured_bass_alteration
+%type <scm> figured_bass_alteration
 %type <i> dots
 %type <i> exclamations
 %type <i> optional_rest
@@ -323,14 +318,14 @@ If we give names, Bison complains.
 %type <i> tremolo_type
 
 /* Music */
-%type <scm> Composite_music
-%type <scm> Grouped_music_list
-%type <scm> Music
-%type <scm> Prefix_composite_music
-%type <scm> Repeated_music
-%type <scm> Sequential_music
-%type <scm> Simple_music
-%type <scm> Simultaneous_music
+%type <scm> composite_music
+%type <scm> grouped_music_list
+%type <scm> music
+%type <scm> prefix_composite_music
+%type <scm> repeated_music
+%type <scm> sequential_music
+%type <scm> simple_music
+%type <scm> simultaneous_music
 %type <scm> chord_body
 %type <scm> chord_body_element
 %type <scm> command_element
@@ -346,9 +341,9 @@ If we give names, Bison complains.
 %type <scm> re_rhythmed_music
 %type <scm> relative_music
 %type <scm> simple_element
+%type <scm> simple_music_property_def
 %type <scm> string_number_event
 %type <scm> tempo_event
-%type <scm> toplevel_music
 
 %type <outputdef> output_def_body
 %type <outputdef> output_def_head
@@ -356,15 +351,13 @@ If we give names, Bison complains.
 %type <outputdef> output_def
 %type <outputdef> paper_block 
 
-%type <scm> Alternative_music
-%type <scm> Generic_prefix_music_scm 
-%type <scm> Music_list
+%type <scm> alternative_music
+%type <scm> generic_prefix_music_scm 
+%type <scm> music_list
 %type <scm> absolute_pitch
 %type <scm> assignment_id
 %type <scm> bare_number
-%type <scm> music_function_event
-%type <scm> music_function_chord_body
-%type <scm> music_function_musicless_prefix
+%type <scm> unsigned_number
 %type <scm> bass_figure
 %type <scm> figured_bass_modification
 %type <scm> br_bass_figure
@@ -386,6 +379,12 @@ If we give names, Bison complains.
 %type <scm> figure_spec
 %type <scm> fraction
 %type <scm> full_markup
+%type <scm> full_markup_list
+%type <scm> function_scm_argument
+%type <scm> function_arglist
+%type <scm> function_arglist_music_last
+%type <scm> function_arglist_nonmusic_last
+%type <scm> function_arglist_nonmusic
 %type <scm> identifier_init
 %type <scm> lilypond_header
 %type <scm> lilypond_header_body
@@ -395,6 +394,7 @@ If we give names, Bison complains.
 %type <scm> markup_braced_list
 %type <scm> markup_braced_list_body 
 %type <scm> markup_composed_list
+%type <scm> markup_command_list
 %type <scm> markup_head_1_item
 %type <scm> markup_head_1_list
 %type <scm> markup_list
@@ -402,6 +402,9 @@ If we give names, Bison complains.
 %type <scm> mode_changing_head
 %type <scm> mode_changing_head_with_context
 %type <scm> multiplied_duration
+%type <scm> music_function_identifier_musicless_prefix
+%type <scm> music_function_event
+%type <scm> music_function_chord_body
 %type <scm> new_chord
 %type <scm> new_lyrics
 %type <scm> number_expression
@@ -416,8 +419,10 @@ If we give names, Bison complains.
 %type <scm> pitch_also_in_chords
 %type <scm> post_events
 %type <scm> property_operation
+%type <scm> property_path property_path_revved
 %type <scm> scalar
 %type <scm> script_abbreviation
+%type <scm> simple_chord_elements
 %type <scm> simple_markup
 %type <scm> simple_string
 %type <scm> steno_duration
@@ -426,7 +431,6 @@ If we give names, Bison complains.
 %type <scm> step_number
 %type <scm> step_numbers 
 %type <scm> string
-%type <scm> function_scm_argument
 
 %type <score> score_block
 %type <score> score_body
@@ -476,12 +480,16 @@ toplevel_expression:
 		scm_call_2 (proc, PARSER->self_scm (), score->self_scm ());
 		score->unprotect ();
 	}
-	| toplevel_music {
+	| composite_music {
 		Music *music = unsmob_music ($1);
 		SCM proc = PARSER->lexer_->lookup_identifier ("toplevel-music-handler");
 		scm_call_2 (proc, PARSER->self_scm (), music->self_scm ());
 	}
 	| full_markup {
+		SCM proc = PARSER->lexer_->lookup_identifier ("toplevel-text-handler");
+		scm_call_2 (proc, PARSER->self_scm (), scm_list_1 ($1));
+	}
+	| full_markup_list {
 		SCM proc = PARSER->lexer_->lookup_identifier ("toplevel-text-handler");
 		scm_call_2 (proc, PARSER->self_scm (), $1);
 	}
@@ -501,20 +509,15 @@ toplevel_expression:
 	}
 	;
 
-toplevel_music:
-	Composite_music {
-	}
-	;
-
 embedded_scm:
-	SCM_T
+	SCM_TOKEN
 	| SCM_IDENTIFIER
 	;
 
 
 lilypond_header_body:
 	{
-		$$ = get_header(PARSER);
+		$$ = get_header (PARSER);
 		PARSER->lexer_->add_scope ($$);
 	}
 	| lilypond_header_body assignment  {
@@ -538,15 +541,6 @@ assignment_id:
 
 assignment:
 	assignment_id '=' identifier_init  {
-		if (! is_regular_identifier ($1))
-		{
-#if 0
-			/* no longer valid with dashes in \paper{} block. */ 
-			@1.warning (_ ("identifier should have alphabetic characters only"));
-#endif
-		}
-
-
 	        PARSER->lexer_->set_identifier ($1, $3);
 
 /*
@@ -577,8 +571,17 @@ identifier_init:
 	| context_def_spec_block {
 		$$ = $1;
 	}
-	| Music  {
-		$$ = $1;
+	| music  {
+		/* Hack: Create event-chord around standalone events.
+		   Prevents the identifier from being interpreted as a post-event. */
+		Music *mus = unsmob_music ($1);
+		bool is_event = mus &&
+			(scm_memq (ly_symbol2scm ("event"), mus->get_property ("types"))
+				!= SCM_BOOL_F);
+		if (!is_event)
+			$$ = $1;
+		else
+			$$ = MAKE_SYNTAX ("event-chord", @$, scm_list_1 ($1));
 	}
 	| post_event {
 		$$ = $1;
@@ -610,11 +613,11 @@ context_def_spec_block:
 context_def_spec_body:
 	/**/ {
 		$$ = Context_def::make_scm ();
-		unsmob_context_def ($$)->set_spot (@$);
+		unsmob_context_def ($$)->origin ()->set_spot (@$);
 	}
 	| CONTEXT_DEF_IDENTIFIER {
 		$$ = $1;
-		unsmob_context_def ($$)->set_spot (@$);
+		unsmob_context_def ($$)->origin ()->set_spot (@$);
 	}
 	| context_def_spec_body GROBDESCRIPTIONS embedded_scm {
 		Context_def*td = unsmob_context_def ($$);
@@ -646,26 +649,38 @@ book_block:
 book_body:
 	{
 		$$ = new Book;
-		$$->set_spot (@$);
+		$$->origin ()->set_spot (@$);
 		$$->paper_ = dynamic_cast<Output_def*> (unsmob_output_def (PARSER->lexer_->lookup_identifier ("$defaultpaper"))->clone ());
 		$$->paper_->unprotect ();
 		$$->header_ = PARSER->lexer_->lookup_identifier ("$defaultheader"); 
 	}
 	| BOOK_IDENTIFIER {
 		$$ = unsmob_book ($1);
-		$$->set_spot (@$);
+		$$->protect ();
+		$$->origin ()->set_spot (@$);
 	}
 	| book_body paper_block {
 		$$->paper_ = $2;
 		$2->unprotect ();
 	}
 	| book_body score_block {
-		SCM s = $2->self_scm ();
-		$$->add_score (s);
-		$2->unprotect();
+		Score *score = $2;
+		SCM proc = PARSER->lexer_->lookup_identifier ("book-score-handler");
+		scm_call_2 (proc, $$->self_scm (), score->self_scm ());
+		score->unprotect ();
+	}
+	| book_body composite_music {
+		Music *music = unsmob_music ($2);
+		SCM proc = PARSER->lexer_->lookup_identifier ("book-music-handler");
+		scm_call_3 (proc, PARSER->self_scm (), $$->self_scm (), music->self_scm ());
 	}
 	| book_body full_markup {
-		$$->add_score ($2);
+		SCM proc = PARSER->lexer_->lookup_identifier ("book-text-handler");
+		scm_call_2 (proc, $$->self_scm (), scm_list_1 ($2));
+	}
+	| book_body full_markup_list {
+		SCM proc = PARSER->lexer_->lookup_identifier ("book-text-handler");
+		scm_call_2 (proc, $$->self_scm (), $2);
 	}
 	| book_body lilypond_header {
 		$$->header_ = $2;
@@ -686,7 +701,7 @@ score_block:
 	;
 
 score_body:
-	Music {
+	music {
 		SCM m = $1;
 		SCM scorify = ly_lily_module_constant ("scorify-music");
 		SCM score = scm_call_2 (scorify, m, PARSER->self_scm ());
@@ -694,17 +709,18 @@ score_body:
 		// pass ownernship to C++ again.
 		$$ = unsmob_score (score);
 		$$->protect ();
-		$$->set_spot (@$);
+		$$->origin ()->set_spot (@$);
 	}
 	| SCORE_IDENTIFIER {
 		$$ = unsmob_score ($1);
-		$$->set_spot (@$);
+		$$->protect ();
+		$$->origin ()->set_spot (@$);
 	}
 	| score_body object_id_setting {
 		$$->user_key_ = ly_scm2string ($2);
 	}
 	| score_body lilypond_header 	{
-		$$->header_ = $2;
+		$$->set_header ($2);
 	}
 	| score_body output_def {
 		if ($2->lookup_variable (ly_symbol2scm ("is-paper")) == SCM_BOOL_T)
@@ -734,6 +750,7 @@ paper_block:
 		if ($$->lookup_variable (ly_symbol2scm ("is-paper")) != SCM_BOOL_T)
 		{
 			PARSER->parser_error (@1, _ ("need \\paper for paper block"));
+			$1->unprotect ();
 			$$ = get_paper (PARSER);
 		}
 	}
@@ -782,9 +799,11 @@ output_def_body:
 	}
 	| output_def_head_with_mode_switch '{' OUTPUT_DEF_IDENTIFIER 	{
 		$1->unprotect ();
+
 		Output_def *o = unsmob_output_def ($3);
 		o->input_origin_.set_spot (@$);
 		$$ = o;
+		$$->protect ();
 		PARSER->lexer_->remove_scope ();
 		PARSER->lexer_->add_scope (o->scope_);
 	}
@@ -794,15 +813,6 @@ output_def_body:
 	| output_def_body context_def_spec_block	{
 		assign_context_def ($$, $2);
 	}
-	| output_def_body tempo_event  {
-		/*
-			junk this ? there already is tempo stuff in
-			music.
-		*/
-		int m = scm_to_int (unsmob_music($2)->get_property ("metronome-count"));
-		Duration *d = unsmob_duration (unsmob_music($2)->get_property ("tempo-unit"));
-		set_tempo ($$, d->get_length (), m);
-	}
 	| output_def_body error {
 
 	}
@@ -810,11 +820,8 @@ output_def_body:
 
 tempo_event:
 	TEMPO steno_duration '=' bare_unsigned	{
-		Music *m = MY_MAKE_MUSIC ("MetronomeChangeEvent");
-		m->set_property ("tempo-unit", $2);
-		m->set_property ("metronome-count", scm_from_int ( $4));
-		$$ = m->unprotect ();
-	}
+		$$ = MAKE_SYNTAX ("tempo", @$, $2, scm_int2num ($4));
+	}				
 	;
 
 /*
@@ -824,11 +831,11 @@ The representation of a  list is the
 
  to have efficient append.  */
 
-Music_list:
+music_list:
 	/* empty */ {
 		$$ = scm_cons (SCM_EOL, SCM_EOL);
 	}
-	| Music_list Music {
+	| music_list music {
 		SCM s = $$;
  		SCM c = scm_cons ($2, SCM_EOL);
 
@@ -838,11 +845,11 @@ Music_list:
 			scm_set_car_x (s, c); /* set first cons */
 		scm_set_cdr_x (s, c);  /* remember last cell */
 	}
-	| Music_list embedded_scm {
+	| music_list embedded_scm {
 
 	}
-	| Music_list error {
-		Music *m = MY_MAKE_MUSIC("Music");
+	| music_list error {
+		Music *m = MY_MAKE_MUSIC("Music", @$);
 		// ugh. code dup 
 		m->set_property ("error-found", SCM_BOOL_T);
 		SCM s = $$;
@@ -857,47 +864,47 @@ Music_list:
 	}
 	;
 
-Music:
-	Simple_music
-	| Composite_music
+music:
+	simple_music
+	| composite_music
 	;
 
-Alternative_music:
+alternative_music:
 	/* empty */ {
 		$$ = SCM_EOL;
 	}
-	| ALTERNATIVE '{' Music_list '}' {
+	| ALTERNATIVE '{' music_list '}' {
 		$$ = scm_car ($3);
 	}
 	;
 
 
-Repeated_music:
-	REPEAT simple_string bare_unsigned Music Alternative_music
+repeated_music:
+	REPEAT simple_string unsigned_number music alternative_music
 	{
-		$$ = MAKE_SYNTAX ("repeat", @$, $2, scm_int2num ($3), $4, $5);
+		$$ = MAKE_SYNTAX ("repeat", @$, $2, $3, $4, $5);
 	}
 	;
 
-Sequential_music:
-	SEQUENTIAL '{' Music_list '}'		{
+sequential_music:
+	SEQUENTIAL '{' music_list '}'		{
 		$$ = MAKE_SYNTAX ("sequential-music", @$, scm_car ($3));
 	}
-	| '{' Music_list '}'		{
+	| '{' music_list '}'		{
 		$$ = MAKE_SYNTAX ("sequential-music", @$, scm_car ($2));
 	}
 	;
 
-Simultaneous_music:
-	SIMULTANEOUS '{' Music_list '}'{
+simultaneous_music:
+	SIMULTANEOUS '{' music_list '}'{
 		$$ = MAKE_SYNTAX ("simultaneous-music", @$, scm_car ($3));
 	}
-	| simul_open Music_list simul_close	{
+	| DOUBLE_ANGLE_OPEN music_list DOUBLE_ANGLE_CLOSE	{
 		$$ = MAKE_SYNTAX ("simultaneous-music", @$, scm_car ($2));
 	}
 	;
 
-Simple_music:
+simple_music:
 	event_chord
 	| MUSIC_IDENTIFIER
 	| music_property_def
@@ -921,14 +928,14 @@ context_mod_list:
 	}
 	;
 
-Composite_music:
-	Prefix_composite_music { $$ = $1; }
-	| Grouped_music_list { $$ = $1; }
+composite_music:
+	prefix_composite_music { $$ = $1; }
+	| grouped_music_list { $$ = $1; }
 	;
 
-Grouped_music_list:
-	Simultaneous_music		{ $$ = $1; }
-	| Sequential_music		{ $$ = $1; }
+grouped_music_list:
+	simultaneous_music		{ $$ = $1; }
+	| sequential_music		{ $$ = $1; }
 	;
 
 function_scm_argument:
@@ -936,48 +943,52 @@ function_scm_argument:
 	| simple_string
 	;
 
-/*
-TODO: use code generation for this
-*/
-Generic_prefix_music_scm:
-	MUSIC_FUNCTION {
-		$$ = scm_list_2 ($1, make_input (@$));
-	}
-	| MUSIC_FUNCTION_SCM function_scm_argument {
-		$$ = scm_list_3 ($1, make_input (@$), $2);
-	}
-	| MUSIC_FUNCTION_MARKUP full_markup {
-		$$ = scm_list_3 ($1, make_input (@$), $2);
-	}
-	| music_function_musicless_prefix Music {
-		$$ = ly_append2 ($1, scm_list_1 ($2));
-	}
-	| MUSIC_FUNCTION_SCM_SCM function_scm_argument function_scm_argument {
-		$$ = scm_list_4 ($1, make_input (@$), $2, $3);
+/* An argument list. If a function \foo expects scm scm music, then the lexer expands \foo into the token sequence:
+ MUSIC_FUNCTION EXPECT_MUSIC EXPECT_SCM EXPECT_SCM
+and this rule returns the reversed list of arguments. */
+
+function_arglist_music_last:
+	EXPECT_MUSIC function_arglist music {
+		$$ = scm_cons ($3, $2);
 	}
-	| MUSIC_FUNCTION_SCM_SCM_SCM function_scm_argument function_scm_argument function_scm_argument {
-		$$ = scm_list_5 ($1, make_input (@$), $2, $3, $4);
+	;
+
+function_arglist_nonmusic_last:
+	EXPECT_MARKUP function_arglist full_markup {
+		$$ = scm_cons ($3, $2);
 	}
-	| MUSIC_FUNCTION_MARKUP_MUSIC full_markup Music {
-		$$ = scm_list_4 ($1, make_input (@$), $2, $3);
+	| EXPECT_SCM function_arglist function_scm_argument {
+		$$ = scm_cons ($3, $2);
 	}
-	| MUSIC_FUNCTION_MARKUP_MARKUP full_markup full_markup {
-		$$ = scm_list_4 ($1, make_input (@$), $2, $3);
+	;
+
+function_arglist_nonmusic: EXPECT_NO_MORE_ARGS {
+		$$ = SCM_EOL;
 	}
-	| MUSIC_FUNCTION_MUSIC_MUSIC Music Music {
-		$$ = scm_list_4 ($1, make_input (@$), $2, $3);
+	| EXPECT_MARKUP function_arglist_nonmusic full_markup {
+		$$ = scm_cons ($3, $2);
 	}
-	| MUSIC_FUNCTION_SCM_MUSIC_MUSIC function_scm_argument Music Music {
-		$$ = scm_list_5 ($1, make_input (@$), $2, $3, $4);
+	| EXPECT_SCM function_arglist_nonmusic function_scm_argument {
+		$$ = scm_cons ($3, $2);
 	}
-	| MUSIC_FUNCTION_SCM_SCM_MUSIC_MUSIC function_scm_argument function_scm_argument Music Music {
-		$$ = scm_list_n ($1, make_input (@$), $2, $3, $4, $5, SCM_UNDEFINED);
+	;
+
+function_arglist: EXPECT_NO_MORE_ARGS {
+		/* This is for 0-ary functions, so they don't need to
+		   read a lookahead token */
+		$$ = SCM_EOL;
 	}
-	| MUSIC_FUNCTION_MARKUP_MUSIC_MUSIC full_markup Music Music {
-		$$ = scm_list_5 ($1, make_input (@$), $2, $3, $4);
+	| function_arglist_music_last
+	| function_arglist_nonmusic_last
+	;
+
+generic_prefix_music_scm:
+	MUSIC_FUNCTION function_arglist {
+		$$ = ly_append2 (scm_list_2 ($1, make_input (@$)), scm_reverse_x ($2, SCM_EOL));
 	}
 	;
 
+
 optional_id:
 	/**/ { $$ = SCM_EOL; }
 	| '=' simple_string {
@@ -986,48 +997,31 @@ optional_id:
 	;	
 
 
-Prefix_composite_music:
-	Generic_prefix_music_scm {
-		$$ = run_music_function (PARSER, $1)->unprotect ();
+prefix_composite_music:
+	generic_prefix_music_scm {
+		$$ = run_music_function (PARSER, $1);
 	}
-	| CONTEXT    simple_string optional_id optional_context_mod Music {
-		$$ = context_spec_music ($2, $3, $5, $4, false);
+	| CONTEXT simple_string optional_id optional_context_mod music {
+		$$ = MAKE_SYNTAX ("context-specification", @$, $2, $3, $5, $4, SCM_BOOL_F);
 	}
-	| NEWCONTEXT simple_string optional_id optional_context_mod Music {
-		$$ = context_spec_music ($2, $3, $5, $4, true);
+	| NEWCONTEXT simple_string optional_id optional_context_mod music {
+		$$ = MAKE_SYNTAX ("context-specification", @$, $2, $3, $5, $4, SCM_BOOL_T);
 	}
 
-	| TIMES fraction Music 	
-	{
-                int n = scm_to_int (scm_car ($2));
-                int d = scm_to_int (scm_cdr ($2));
-
-                Music *m = MY_MAKE_MUSIC ("TimeScaledMusic");
-                m->set_spot (@$);
-
-                m->set_property ("element", $3);
-                m->set_property ("numerator", scm_from_int (n));
-                m->set_property ("denominator", scm_from_int (d));
-                m->compress (Moment (Rational (n,d)));
-                $$ = m->unprotect ();
+	| TIMES fraction music {
+                $$ = MAKE_SYNTAX ("time-scaled-music", @$, $2, $3);
 	}
-	| Repeated_music		{ $$ = $1; }
-	| TRANSPOSE pitch_also_in_chords pitch_also_in_chords Music {
-		Music *m = MY_MAKE_MUSIC ("TransposedMusic");
+	| repeated_music		{ $$ = $1; }
+	| TRANSPOSE pitch_also_in_chords pitch_also_in_chords music {
 		Pitch from = *unsmob_pitch ($2);
 		Pitch to = *unsmob_pitch ($3);
-
-		Music *p = unsmob_music ($4);
-		p->transpose (pitch_interval (from, to));
-		m->set_property ("element", $4);
-		$$ = m->unprotect ();
+		SCM pitch = pitch_interval (from, to).smobbed_copy ();
+		$$ = MAKE_SYNTAX ("transpose-music", @$, pitch, $4);
 	}
-	| mode_changing_head Grouped_music_list {
+	| mode_changing_head grouped_music_list {
 		if ($1 == ly_symbol2scm ("chords"))
 		{
-		  Music *chm = MY_MAKE_MUSIC ("UnrelativableMusic");
-		  chm->set_property ("element", $2);
-		  $$ = chm->unprotect ();
+		  $$ = MAKE_SYNTAX ("unrelativable-music", @$, $2);
 		}
 		else
 		{
@@ -1035,13 +1029,11 @@ Prefix_composite_music:
 		}
 		PARSER->lexer_->pop_state ();
 	}
-	| mode_changing_head_with_context optional_context_mod Grouped_music_list {
-		$$ = context_spec_music ($1, SCM_UNDEFINED, $3, $2, true);
+	| mode_changing_head_with_context optional_context_mod grouped_music_list {
+		$$ = MAKE_SYNTAX ("context-specification", @$, $1, SCM_EOL, $3, $2, SCM_BOOL_T);
 		if ($1 == ly_symbol2scm ("ChordNames"))
 		{
-		  Music *chm = MY_MAKE_MUSIC ("UnrelativableMusic");
-		  chm->set_property ("element", $$);
-		  $$ = chm->unprotect ();
+		  $$ = MAKE_SYNTAX ("unrelativable-music", @$, $$);
 		}
 		PARSER->lexer_->pop_state ();
 	}
@@ -1109,21 +1101,21 @@ mode_changing_head_with_context:
 
 
 relative_music:
-	RELATIVE absolute_pitch Music {
+	RELATIVE absolute_pitch music {
 		Pitch start = *unsmob_pitch ($2);
-		$$ = make_music_relative (start, $3);
+		$$ = make_music_relative (start, $3, @$);
 	}
-	| RELATIVE Composite_music {
+	| RELATIVE composite_music {
 		Pitch middle_c (0, 0, 0);
-		$$ = make_music_relative (middle_c, $2);
+		$$ = make_music_relative (middle_c, $2, @$);
 	}
 	;
 
 new_lyrics:
 	ADDLYRICS { PARSER->lexer_->push_lyric_state (); }
 	/*cont */
-	Grouped_music_list {
-	/* Can also use Music at the expensive of two S/Rs similar to
+	grouped_music_list {
+	/* Can also use music at the expensive of two S/Rs similar to
            \repeat \alternative */
 		PARSER->lexer_->pop_state ();
 
@@ -1131,59 +1123,46 @@ new_lyrics:
 	}
 	| new_lyrics ADDLYRICS {
 		PARSER->lexer_->push_lyric_state ();
-	} Grouped_music_list {
+	} grouped_music_list {
 		PARSER->lexer_->pop_state ();
 		$$ = scm_cons ($4, $1);
 	}
 	;
 
 re_rhythmed_music:
-	Grouped_music_list new_lyrics {
-		SCM voice = $1;
-		SCM name = get_first_context_id (scm_makfrom0str ("Voice"), unsmob_music (voice)); 
-		if (!scm_is_string (name))
-		{
-			name = get_next_unique_lyrics_context_id ();
-			voice = context_spec_music (scm_makfrom0str ("Voice"),
-						    name,
-						    voice, SCM_EOL, false);
-		}
-
-		SCM context = scm_makfrom0str ("Lyrics");
-		Music *all = MY_MAKE_MUSIC ("SimultaneousMusic");
-
-		SCM lst = SCM_EOL;
-		for (SCM s = $2; scm_is_pair (s); s = scm_cdr (s))
-		{
-			SCM com = make_lyric_combine_music (name, scm_car (s));
-			SCM csm = context_spec_music (context,
-				SCM_UNDEFINED, com, SCM_EOL, true);
-			lst = scm_cons (csm, lst);
-		}
-		all->set_property ("elements", scm_cons (voice,
-			lst));
-		$$ = all->unprotect ();
+	grouped_music_list new_lyrics {
+		$$ = MAKE_SYNTAX ("add-lyrics", @$, $1, scm_reverse_x ($2, SCM_EOL));
 	}
 	| LYRICSTO simple_string {
 		PARSER->lexer_->push_lyric_state ();
-	} Music {
+	} music {
 		PARSER->lexer_->pop_state ();
-		SCM name = $2;
-		$$ = make_lyric_combine_music (name, $4);
+		$$ = MAKE_SYNTAX ("lyric-combine", @$, $2, $4);
 	}
 	;
 
 context_change:
 	CHANGE STRING '=' STRING  {
-		Music *t = MY_MAKE_MUSIC ("ContextChange");
-		t-> set_property ("change-to-type", scm_string_to_symbol ($2));
-		t-> set_property ("change-to-id", $4);
-		t->set_spot (@$);
+		$$ = MAKE_SYNTAX ("context-change", @$, scm_string_to_symbol ($2), $4);
+	}
+	;
 
-		$$ = t->unprotect ();
+
+property_path_revved:
+	embedded_scm {
+		$$ = scm_cons ($1, SCM_EOL);
+	}
+	| property_path_revved embedded_scm {
+		$$ = scm_cons ($2, $1);
 	}
 	;
 
+property_path:
+	property_path_revved  {
+		$$ = scm_reverse_x ($1, SCM_EOL);
+	} 
+	;
+
 property_operation:
 	STRING '=' scalar {
 		$$ = scm_list_3 (ly_symbol2scm ("assign"),
@@ -1193,13 +1172,10 @@ property_operation:
 		$$ = scm_list_2 (ly_symbol2scm ("unset"),
 			scm_string_to_symbol ($2));
 	}
-	| OVERRIDE simple_string embedded_scm '=' embedded_scm {
-		$$ = scm_list_4 (ly_symbol2scm ("push"),
-			scm_string_to_symbol ($2), $5, $3);
-	}
-	| OVERRIDE simple_string embedded_scm embedded_scm '=' embedded_scm {
-		$$ = scm_list_5 (ly_symbol2scm ("push"),
-				scm_string_to_symbol ($2), $6, $4, $3);
+	| OVERRIDE simple_string property_path '=' embedded_scm {
+		$$ = scm_append (scm_list_2 (scm_list_3 (ly_symbol2scm ("push"),
+							scm_string_to_symbol ($2), $5),
+					     $3));
 	}
 	| REVERT simple_string embedded_scm {
 		$$ = scm_list_3 (ly_symbol2scm ("pop"),
@@ -1244,50 +1220,41 @@ context_prop_spec:
 	}
 	;
 
-music_property_def:
-	OVERRIDE context_prop_spec embedded_scm '=' scalar {
-		Music *m = property_op_to_music (scm_list_4 (
-			ly_symbol2scm ("push"),
-			scm_cadr ($2),
-			$5, $3));
-		$$ = context_spec_music (scm_car ($2), SCM_UNDEFINED, m->unprotect (), SCM_EOL, false);
-	}
-	| OVERRIDE context_prop_spec embedded_scm  embedded_scm '=' scalar {
-		Music *m = property_op_to_music (scm_list_5 (
-			ly_symbol2scm ("push"),
-			scm_cadr ($2),
-			$6, $4, $3));
-		$$ = context_spec_music (scm_car ($2), SCM_UNDEFINED, m->unprotect (), SCM_EOL, false);
+simple_music_property_def:
+	OVERRIDE context_prop_spec property_path '=' scalar {
+		$$ = scm_append (scm_list_2 (scm_list_n (scm_car ($2),			
+				ly_symbol2scm ("OverrideProperty"),
+				scm_cadr ($2),
+				$5, SCM_UNDEFINED),
+				$3));
 	}
 	| REVERT context_prop_spec embedded_scm {
-		Music *m = property_op_to_music (scm_list_3 (
-			ly_symbol2scm ("pop"),
+		$$ = scm_list_4 (scm_car ($2),
+			ly_symbol2scm ("RevertProperty"),
 			scm_cadr ($2),
-			$3));
-
-		$$ = context_spec_music (scm_car ($2), SCM_UNDEFINED, m->unprotect (), SCM_EOL, false);
+			$3);
 	}
 	| SET context_prop_spec '=' scalar {
-		Music *m = property_op_to_music (scm_list_3 (
-			ly_symbol2scm ("assign"),
+		$$ = scm_list_4 (scm_car ($2),
+			ly_symbol2scm ("PropertySet"),
 			scm_cadr ($2),
-			$4));
-		$$ = context_spec_music (scm_car ($2), SCM_UNDEFINED, m->unprotect (), SCM_EOL, false);
+			$4);
 	}
 	| UNSET context_prop_spec {
-		Music *m = property_op_to_music (scm_list_2 (
-			ly_symbol2scm ("unset"),
-			scm_cadr ($2)));
-		$$ = context_spec_music (scm_car ($2), SCM_UNDEFINED, m->unprotect (), SCM_EOL, false);
-	}
-	| ONCE music_property_def {
-		Music *m = unsmob_music ($2);
-		SCM e = m->get_property ("element");
-                unsmob_music (e)->set_property ("once", SCM_BOOL_T);
-		$$ = $2;
+		$$ = scm_list_3 (scm_car ($2),
+			ly_symbol2scm ("PropertyUnset"),
+			scm_cadr ($2));
 	}
 	;
 
+music_property_def:
+	simple_music_property_def {
+		$$ = LOWLEVEL_MAKE_SYNTAX (ly_lily_module_constant ("property-operation"), scm_cons (PARSER->self_scm (), scm_cons2 (make_input (@$), SCM_BOOL_F, $1)));
+	}
+	| ONCE simple_music_property_def {
+		$$ = LOWLEVEL_MAKE_SYNTAX (ly_lily_module_constant ("property-operation"), scm_cons (PARSER->self_scm (), scm_cons2 (make_input (@$), SCM_BOOL_T, $2)));
+	}
+	;
 
 string:
 	STRING {
@@ -1332,45 +1299,25 @@ scalar: string {
 	}
 	;
 
-/*
-
-pre_events doesn't contain anything. It is a trick:
-
-Adding pre_events to the simple_element
-makes the choice between
-
-  string:  STRING
-
-and
-
-  simple_element: STRING
-
-a single shift/reduction conflict.
-
-nevertheless, this is not very clean, and we should find a different
-solution.
-
-*/
-pre_events: /* empty */
-	;
-
 event_chord:
-	pre_events simple_element post_events	{
-		Music *m = unsmob_music ($2);
-		m->protect ();
-		SCM elts = m->get_property ("elements");
+	/* TODO: Create a special case that avoids the creation of
+	   EventChords around simple_elements that have no post_events?
+	 */
+	simple_chord_elements post_events	{
+		SCM elts = ly_append2 ($1, scm_reverse_x ($2, SCM_EOL));
 
-		elts = ly_append2 (elts, scm_reverse_x ($3, SCM_EOL));
-
-		m->set_property ("elements", elts);
+		Input i;
 		/* why is this giving wrong start location? -ns
-		 * $2->set_spot (@$); */
+		 * i = @$; */
+		i.set_location (@1, @2);
+		$$ = MAKE_SYNTAX ("event-chord", i, elts);
+	}
+	| MULTI_MEASURE_REST optional_notemode_duration post_events {
 		Input i;
-		i.set_location (@2, @3);
-		m->set_spot (i);
-		$$ = m->unprotect ();
+		i.set_location (@1, @3);
+		$$ = MAKE_SYNTAX ("multi-measure-rest", i, $2, $3);
 	}
-	| command_element { $$ = $1; }
+	| command_element
 	| note_chord_element
 	;
 
@@ -1393,26 +1340,10 @@ note_chord_element:
 	}
 	;
 
-chord_open: '<'
-	;
-
-chord_close: '>'
-	;
-
-simul_open: DOUBLE_ANGLE_OPEN
-	;
-
-simul_close: DOUBLE_ANGLE_CLOSE
-	;
-
 chord_body:
-	chord_open chord_body_elements chord_close
+	ANGLE_OPEN chord_body_elements ANGLE_CLOSE
 	{
-		Music *m = MY_MAKE_MUSIC ("EventChord");
-		m->set_spot (@$);
-		m->set_property ("elements",
-			scm_reverse_x ($2, SCM_EOL));
-		$$ = m->unprotect ();
+		$$ = MAKE_SYNTAX ("event-chord", @$, scm_reverse_x ($2, SCM_EOL));
 	}
 	;
 
@@ -1431,9 +1362,8 @@ chord_body_element:
 		SCM check = $4;
 		SCM post = $5;
 
-		Music *n = MY_MAKE_MUSIC ("NoteEvent");
+		Music *n = MY_MAKE_MUSIC ("NoteEvent", @$);
 		n->set_property ("pitch", $1);
-		n->set_spot (@$);
 		if (q % 2)
 			n->set_property ("cautionary", SCM_BOOL_T);
 		if (ex % 2 || q % 2)
@@ -1452,10 +1382,9 @@ chord_body_element:
 		$$ = n->unprotect ();
 	}
 	| DRUM_PITCH post_events {
-		Music *n = MY_MAKE_MUSIC ("NoteEvent");
+		Music *n = MY_MAKE_MUSIC ("NoteEvent", @$);
 		n->set_property ("duration", $2);
 		n->set_property ("drum-type", $1);
-		n->set_spot (@$);
 
 		if (scm_is_pair ($2)) {
 			SCM arts = scm_reverse_x ($2, SCM_EOL);
@@ -1464,121 +1393,81 @@ chord_body_element:
 		$$ = n->unprotect ();
 	}
 	| music_function_chord_body { 
-		Music *m = run_music_function (PARSER, $1);
-		m->set_spot (@$);
-		$$ = m->unprotect ();
+		$$ = run_music_function (PARSER, $1);
 	}
 	;
 
-music_function_chord_body:
-	MUSIC_FUNCTION {
-		$$ = scm_list_2 ($1, make_input (@$));
-	}
-	| music_function_musicless_prefix chord_body_element {
-		$$ = ly_append2 ($1, scm_list_1 ($2));
+music_function_identifier_musicless_prefix: MUSIC_FUNCTION {
+		SCM sig = scm_object_property (yylval.scm, ly_symbol2scm ("music-function-signature"));
+		if (scm_is_pair (sig) && to_boolean (scm_memq (ly_music_p_proc, scm_cdr (scm_reverse (sig)))))
+		{
+			PARSER->parser_error (@$, "Music function applied to event may not have a Music argument, except as the last argument.");
+		}
 	}
 	;
 
-music_function_event:
-	music_function_musicless_prefix post_event {
-		$$ = ly_append2 ($1, scm_list_1 ($2));
+music_function_chord_body:
+	/* We could allow chord functions to have multiple music arguments,
+	   but it's more consistent with music_function_event if we
+	   prohibit it here too */
+	music_function_identifier_musicless_prefix EXPECT_MUSIC function_arglist_nonmusic chord_body_element {
+		$$ = ly_append2 (scm_list_2 ($1, make_input (@$)), scm_reverse_x ($3, scm_list_1 ($4)));
+	}
+	| music_function_identifier_musicless_prefix function_arglist_nonmusic {
+		$$ = ly_append2 (scm_list_2 ($1, make_input (@$)), scm_reverse_x ($2, SCM_EOL));
 	}
 	;
 
-/*
-TODO: use code generation for this
-*/
-music_function_musicless_prefix:
-	MUSIC_FUNCTION_MUSIC {
-		$$ = scm_list_2 ($1, make_input (@$));
-	}
-	| MUSIC_FUNCTION_SCM_MUSIC function_scm_argument { 
-		$$ = scm_list_3 ($1, make_input (@$), $2);
-	}
-	| MUSIC_FUNCTION_SCM_SCM_MUSIC function_scm_argument function_scm_argument {
-		$$ = scm_list_4 ($1, make_input (@$), $2, $3);
-	}
-	| MUSIC_FUNCTION_SCM_SCM_SCM_MUSIC function_scm_argument function_scm_argument function_scm_argument {
-		$$ = scm_list_5 ($1, make_input (@$), $2, $3, $4);
+music_function_event:
+	/* Post-events can only have the last argument as music, without this
+	   restriction we get a shift/reduce conflict from e.g.
+	   c8-\partcombine c8 -. */
+	music_function_identifier_musicless_prefix EXPECT_MUSIC function_arglist_nonmusic post_event {
+		$$ = ly_append2 (scm_list_2 ($1, make_input (@$)), scm_reverse_x ($3, scm_list_1 ($4)));
 	}
-	| MUSIC_FUNCTION_SCM_SCM_SCM_SCM_MUSIC function_scm_argument function_scm_argument function_scm_argument function_scm_argument {
-		$$ = scm_list_n ($1, make_input (@$), $2, $3, $4, $5, SCM_UNDEFINED);
+	| music_function_identifier_musicless_prefix function_arglist_nonmusic {
+		$$ = ly_append2 (scm_list_2 ($1, make_input (@$)), scm_reverse_x ($2, SCM_EOL));
 	}
 	;
 
-
 command_element:
 	command_event {
-		Music *m = MY_MAKE_MUSIC ("EventChord");
-		m->set_property ("elements", scm_cons ($1, SCM_EOL));
-		Music *e = unsmob_music ($1);
-		e-> set_spot (@$);
-		m-> set_spot (@$);
-		$$ = m->unprotect ();
+		$$ = $1;
 	}
 	| SKIP duration_length {
-		Music *skip = MY_MAKE_MUSIC ("SkipMusic");
-		skip->set_property ("duration", $2);
-		skip->set_spot (@$);
-		$$ = skip->unprotect ();
+		$$ = MAKE_SYNTAX ("skip-music", @$, $2);
 	}
 	| E_BRACKET_OPEN {
-		Music *m = MY_MAKE_MUSIC ("LigatureEvent");
+		Music *m = MY_MAKE_MUSIC ("LigatureEvent", @$);
 		m->set_property ("span-direction", scm_from_int (START));
-		m->set_spot (@$);
-
-		Music *chord = MY_MAKE_MUSIC ("EventChord");
-		chord->set_property ("elements", scm_cons (m->self_scm (), SCM_EOL));
-		m->unprotect();
-		chord->set_spot (@$);
-		$$ = chord->unprotect ();
+		$$ = m->unprotect();
 	}
 	| E_BRACKET_CLOSE {
-		Music *m = MY_MAKE_MUSIC ("LigatureEvent");
+		Music *m = MY_MAKE_MUSIC ("LigatureEvent", @$);
 		m->set_property ("span-direction", scm_from_int (STOP));
-		m->set_spot (@$);
-
-		Music *chord = MY_MAKE_MUSIC ("EventChord");
-		chord->set_property ("elements", scm_cons (m->self_scm (), SCM_EOL));
-		chord->set_spot (@$);
-		m->unprotect ();
-		$$ = chord->unprotect ();
+		$$ = m->unprotect ();
 	}
 	| E_BACKSLASH {
-		Music *m = MY_MAKE_MUSIC ("VoiceSeparator");
-		m->set_spot (@$);
-		$$ = m->unprotect ();
+		$$ = MAKE_SYNTAX ("voice-separator", @$, SCM_UNDEFINED);
 	}
 	| '|'      {
 		SCM pipe = PARSER->lexer_->lookup_identifier ("pipeSymbol");
 
 		Music *m = unsmob_music (pipe);
 		if (m)
+		{
 			m = m->clone ();
+			m->set_spot (@$);
+			$$ = m->unprotect ();
+		}
 		else
-			m = MY_MAKE_MUSIC ("BarCheck");
+			$$ = MAKE_SYNTAX ("bar-check", @$, SCM_UNDEFINED);
 
-		m->set_spot (@$);
-		$$ = m->unprotect ();
-	}
-	| TRANSPOSITION pitch {
-		Pitch middle_c;
-		Pitch sounds_as_c = pitch_interval (*unsmob_pitch ($2), middle_c);
-		Music *m = set_property_music (ly_symbol2scm ("instrumentTransposition"),
-					 sounds_as_c.smobbed_copy());
-		m->set_spot (@$);
-		$$ = context_spec_music (ly_symbol2scm ("Staff"), SCM_UNDEFINED,
-			m->unprotect (), SCM_EOL, false);
 	}
-	| PARTIAL duration_length  	{
+	| PARTIAL duration_length	{
 		Moment m = - unsmob_duration ($2)->get_length ();
-		Music *p = set_property_music (ly_symbol2scm ( "measurePosition"),m.smobbed_copy ());
-		p->set_spot (@$);
-		SCM ps = p->unprotect ();
-		ps = context_spec_music (ly_symbol2scm ("Timing"), SCM_UNDEFINED,
-					ps, SCM_EOL, false);
-		$$ = context_spec_music (ly_symbol2scm ("Score"), SCM_UNDEFINED,
-					ps, SCM_EOL, false);
+		$$ = MAKE_SYNTAX ("property-operation", @$, SCM_BOOL_F, ly_symbol2scm ("Timing"), ly_symbol2scm ("PropertySet"), ly_symbol2scm ("measurePosition"), m.smobbed_copy ());
+		$$ = MAKE_SYNTAX ("context-specification", @$, ly_symbol2scm ("Score"), SCM_BOOL_F, $$, SCM_EOL, SCM_BOOL_F);
 	}
 
 	| TIME_T fraction  {
@@ -1595,22 +1484,22 @@ command_element:
 
 command_event:
 	E_TILDE {
-		$$ = MY_MAKE_MUSIC ("PesOrFlexaEvent")->unprotect ();
+		$$ = MY_MAKE_MUSIC ("PesOrFlexaEvent", @$)->unprotect ();
 	}
 	| MARK DEFAULT  {
-		Music *m = MY_MAKE_MUSIC ("MarkEvent");
+		Music *m = MY_MAKE_MUSIC ("MarkEvent", @$);
 		$$ = m->unprotect ();
 	}
 	| tempo_event {
 		$$ = $1;
 	}
 	| KEY DEFAULT {
-		Music *key = MY_MAKE_MUSIC ("KeyChangeEvent");
+		Music *key = MY_MAKE_MUSIC ("KeyChangeEvent", @$);
 		$$ = key->unprotect ();
 	}
 	| KEY NOTENAME_PITCH SCM_IDENTIFIER 	{
 
-		Music *key = MY_MAKE_MUSIC ("KeyChangeEvent");
+		Music *key = MY_MAKE_MUSIC ("KeyChangeEvent", @$);
 		if (scm_ilength ($3) > 0)
 		{		
 			key->set_property ("pitch-alist", $3);
@@ -1640,19 +1529,17 @@ post_event:
 		$$ = $1;
 	}
 	| '-' music_function_event {
-		Music *mus = run_music_function (PARSER, $2);
-		mus->set_spot (@1);
-		$$ = mus->unprotect ();
+		$$ = run_music_function (PARSER, $2);
 	}
 	| HYPHEN {
 		if (!PARSER->lexer_->is_lyric_state ())
 			PARSER->parser_error (@1, _ ("have to be in Lyric mode for lyrics"));
-		$$ = MY_MAKE_MUSIC ("HyphenEvent")->unprotect ();
+		$$ = MY_MAKE_MUSIC ("HyphenEvent", @$)->unprotect ();
 	}
 	| EXTENDER {
 		if (!PARSER->lexer_->is_lyric_state ())
 			PARSER->parser_error (@1, _ ("have to be in Lyric mode for lyrics"));
-		$$ = MY_MAKE_MUSIC ("ExtenderEvent")->unprotect ();
+		$$ = MY_MAKE_MUSIC ("ExtenderEvent", @$)->unprotect ();
 	}
 	| script_dir direction_reqd_event {
 		if ($1)
@@ -1675,9 +1562,8 @@ post_event:
 
 string_number_event:
 	E_UNSIGNED {
-		Music *s = MY_MAKE_MUSIC ("StringNumberEvent");
+		Music *s = MY_MAKE_MUSIC ("StringNumberEvent", @$);
 		s->set_property ("string-number", scm_from_int ($1));
-		s->set_spot (@$);
 		$$ = s->unprotect ();
 	}
 	;
@@ -1722,20 +1608,19 @@ direction_less_event:
 		if (unsmob_music (predefd))
 		{
 			m = unsmob_music (predefd)->clone ();
+			m->set_spot (@$);
 		}
 		else
 		{
-			m = MY_MAKE_MUSIC ("Music");
+			m = MY_MAKE_MUSIC ("Music", @$);
 		}
-		m->set_spot (@$);
 		$$ = m->unprotect ();
 	}
 	| EVENT_IDENTIFIER	{
 		$$ = $1;
 	}
 	| tremolo_type  {
-               Music *a = MY_MAKE_MUSIC ("TremoloEvent");
-               a->set_spot (@$);
+               Music *a = MY_MAKE_MUSIC ("TremoloEvent", @$);
                a->set_property ("tremolo-type", scm_from_int ($1));
                $$ = a->unprotect ();
         }
@@ -1747,7 +1632,7 @@ direction_reqd_event:
 	}
 	| script_abbreviation {
 		SCM s = PARSER->lexer_->lookup_identifier ("dash" + ly_scm2string ($1));
-		Music *a = MY_MAKE_MUSIC ("ArticulationEvent");
+		Music *a = MY_MAKE_MUSIC ("ArticulationEvent", @$);
 		if (scm_is_string (s))
 			a->set_property ("articulation-type", s);
 		else PARSER->parser_error (@1, _ ("expecting string as script definition"));
@@ -1758,7 +1643,7 @@ direction_reqd_event:
 octave_check:
 	/**/ { $$ = SCM_EOL; }
 	| '='  { $$ = scm_from_int (0); }
-	| '=' sub_quotes { $$ = scm_from_int ($2); }
+	| '=' sub_quotes { $$ = scm_from_int (-$2); }
 	| '=' sup_quotes { $$ = scm_from_int ($2); }
 	;
 
@@ -1810,7 +1695,7 @@ steno_tonic_pitch:
 		$$ = p.smobbed_copy ();
 	}
 	| TONICNAME_PITCH sub_quotes	 {
-		Pitch p =* unsmob_pitch ($1);
+		Pitch p = *unsmob_pitch ($1);
 
 		p = p.transposed (Pitch (-$2,0,0));
 		$$ = p.smobbed_copy ();
@@ -1830,47 +1715,44 @@ pitch_also_in_chords:
 
 gen_text_def:
 	full_markup {
-		Music *t = MY_MAKE_MUSIC ("TextScriptEvent");
+		Music *t = MY_MAKE_MUSIC ("TextScriptEvent", @$);
 		t->set_property ("text", $1);
-		t->set_spot (@$);
 		$$ = t->unprotect ();
 	}
 	| string {
-		Music *t = MY_MAKE_MUSIC ("TextScriptEvent");
+		Music *t = MY_MAKE_MUSIC ("TextScriptEvent", @$);
 		t->set_property ("text",
 			make_simple_markup ($1));
-		t->set_spot (@$);
 		$$ = t->unprotect ();
 	}
 	| DIGIT {
-		Music *t = MY_MAKE_MUSIC ("FingerEvent");
+		Music *t = MY_MAKE_MUSIC ("FingeringEvent", @$);
 		t->set_property ("digit", scm_from_int ($1));
-		t->set_spot (@$);
 		$$ = t->unprotect ();
 	}
 	;
 
 script_abbreviation:
 	'^'		{
-		$$ = scm_makfrom0str ("Hat");
+		$$ = scm_from_locale_string ("Hat");
 	}
 	| '+'		{
-		$$ = scm_makfrom0str ("Plus");
+		$$ = scm_from_locale_string ("Plus");
 	}
 	| '-' 		{
-		$$ = scm_makfrom0str ("Dash");
+		$$ = scm_from_locale_string ("Dash");
 	}
  	| '|'		{
-		$$ = scm_makfrom0str ("Bar");
+		$$ = scm_from_locale_string ("Bar");
 	}
-	| '>'		{
-		$$ = scm_makfrom0str ("Larger");
+	| ANGLE_CLOSE	{
+		$$ = scm_from_locale_string ("Larger");
 	}
 	| '.' 		{
-		$$ = scm_makfrom0str ("Dot");
+		$$ = scm_from_locale_string ("Dot");
 	}
 	| '_' {
-		$$ = scm_makfrom0str ("Underscore");
+		$$ = scm_from_locale_string ("Underscore");
 	}
 	;
 
@@ -1975,20 +1857,18 @@ bass_number:
 	;
 
 figured_bass_alteration:
-	'-' 	{ $$ = -2; }
-	| '+'	{ $$ = 2; }
-	| '!'	{ $$ = 0; }
+	'-' 	{ $$ = ly_rational2scm (FLAT_ALTERATION); }
+	| '+'	{ $$ = ly_rational2scm (SHARP_ALTERATION); }
+	| '!'	{ $$ = scm_from_int (0); }
 	;
 
 bass_figure:
 	FIGURE_SPACE {
-		Music *bfr = MY_MAKE_MUSIC ("BassFigureEvent");
-		$$ = bfr->self_scm ();
-		bfr->unprotect ();
-		bfr->set_spot (@1);
+		Music *bfr = MY_MAKE_MUSIC ("BassFigureEvent", @$);
+		$$ = bfr->unprotect ();
 	}
 	| bass_number  {
-		Music *bfr = MY_MAKE_MUSIC ("BassFigureEvent");
+		Music *bfr = MY_MAKE_MUSIC ("BassFigureEvent", @$);
 		$$ = bfr->self_scm ();
 
 		if (scm_is_number ($1))
@@ -1997,7 +1877,6 @@ bass_figure:
 			bfr->set_property ("text", $1);
 
 		bfr->unprotect ();
-		bfr->set_spot (@1);
 	}
 	| bass_figure ']' {
 		$$ = $1;
@@ -2005,11 +1884,11 @@ bass_figure:
 	}
 	| bass_figure figured_bass_alteration {
 		Music *m = unsmob_music ($1);
-		if ($2) {
+		if (scm_to_double ($2)) {
 			SCM salter = m->get_property ("alteration");
-			int alter = scm_is_number (salter) ? scm_to_int (salter) : 0;
+			SCM alter = scm_is_number (salter) ? salter : scm_from_int (0);
 			m->set_property ("alteration",
-				scm_from_int (alter + $2));
+					 scm_sum (alter, $2));
 		} else {
 			m->set_property ("alteration", scm_from_int (0));
 		}
@@ -2065,10 +1944,7 @@ figure_list:
 
 figure_spec:
 	FIGURE_OPEN figure_list FIGURE_CLOSE {
-		Music *m = MY_MAKE_MUSIC ("EventChord");
-		$2 = scm_reverse_x ($2, SCM_EOL);
-		m->set_property ("elements", $2);
-		$$ = m->self_scm ();
+		$$ = scm_reverse_x ($2, SCM_EOL);
 	}
 	;
 
@@ -2085,9 +1961,9 @@ simple_element:
 
 		Music *n = 0;
 		if ($6)
-			n = MY_MAKE_MUSIC ("RestEvent");
+			n = MY_MAKE_MUSIC ("RestEvent", @$);
 		else
-			n = MY_MAKE_MUSIC ("NoteEvent");
+			n = MY_MAKE_MUSIC ("NoteEvent", @$);
 		
 		n->set_property ("pitch", $1);
 		n->set_property ("duration", $5);
@@ -2103,78 +1979,55 @@ simple_element:
 		if ($2 % 2 || $3 % 2)
 			n->set_property ("force-accidental", SCM_BOOL_T);
 
-		Music *v = MY_MAKE_MUSIC ("EventChord");
-		v->set_property ("elements", scm_list_1 (n->self_scm ()));
-		n->unprotect ();
-
-		v->set_spot (@$);
-		n->set_spot (@$);
-		$$ = v->unprotect ();
+		$$ = n->unprotect ();
 	}
 	| DRUM_PITCH optional_notemode_duration {
-		Music *n = MY_MAKE_MUSIC ("NoteEvent");
+		Music *n = MY_MAKE_MUSIC ("NoteEvent", @$);
 		n->set_property ("duration", $2);
 		n->set_property ("drum-type", $1);
 
-		Music *v = MY_MAKE_MUSIC ("EventChord");
-		v->set_property ("elements", scm_list_1 (n->self_scm ()));
-		n->unprotect ();
-		v->set_spot (@$);
-		n->set_spot (@$);
-		$$ = v->unprotect ();
-		
+		$$ = n->unprotect ();		
 	}
-	| figure_spec optional_notemode_duration {
-		Music *m = unsmob_music ($1);
-		m->set_spot (@$);
-		for (SCM s = m->get_property ("elements"); scm_is_pair (s); s = scm_cdr (s))
-		{
-			unsmob_music (scm_car (s))->set_property ("duration", $2);
-		}
-		$$ = m->unprotect ();
-	}	
  	| RESTNAME optional_notemode_duration		{
 		Music *ev = 0;
  		if (ly_scm2string ($1) == "s") {
 			/* Space */
-			ev = MY_MAKE_MUSIC ("SkipEvent");
+			ev = MY_MAKE_MUSIC ("SkipEvent", @$);
 		  }
 		else {
-			ev = MY_MAKE_MUSIC ("RestEvent");
+			ev = MY_MAKE_MUSIC ("RestEvent", @$);
 		
 		    }
 		ev->set_property ("duration", $2);
-		ev->set_spot (@$);
- 		Music *velt = MY_MAKE_MUSIC ("EventChord");
-		velt->set_property ("elements", scm_list_1 (ev->self_scm ()));
-		velt->set_spot (@$);
-
-		ev->unprotect();
-
- 		$$ = velt->unprotect ();
-	}
-	| MULTI_MEASURE_REST optional_notemode_duration  	{
-		SCM proc = ly_lily_module_constant ("make-multi-measure-rest");
-		$$ = scm_call_2 (proc, $2, make_input (@$));
+ 		$$ = ev->unprotect ();
 	}
 	| lyric_element optional_notemode_duration 	{
 		if (!PARSER->lexer_->is_lyric_state ())
 			PARSER->parser_error (@1, _ ("have to be in Lyric mode for lyrics"));
 
-		Music *levent = MY_MAKE_MUSIC ("LyricEvent");
+		Music *levent = MY_MAKE_MUSIC ("LyricEvent", @$);
 		levent->set_property ("text", $1);
 		levent->set_property ("duration",$2);
-		levent->set_spot (@$);
-		Music *velt = MY_MAKE_MUSIC ("EventChord");
-		velt->set_property ("elements", scm_list_1 (levent->self_scm ()));
-
-		$$= velt->unprotect ();
+		$$= levent->unprotect ();
 	}
+	;
+
+simple_chord_elements:
+	simple_element	{
+		$$ = scm_list_1 ($1);
+	}	
 	| new_chord {
                 if (!PARSER->lexer_->is_chord_state ())
                         PARSER->parser_error (@1, _ ("have to be in Chord mode for chords"));
                 $$ = $1;
 	}
+	| figure_spec optional_notemode_duration {
+		for (SCM s = $1; scm_is_pair (s); s = scm_cdr (s))
+		{
+			unsmob_music (scm_car (s))->set_property ("duration", $2);
+		}
+		$$ = $1;
+	}	
 	;
 
 lyric_element:
@@ -2188,11 +2041,11 @@ lyric_element:
 
 new_chord:
 	steno_tonic_pitch optional_notemode_duration   {
-		$$ = make_chord ($1, $2, SCM_EOL);
+		$$ = make_chord_elements ($1, $2, SCM_EOL);
 	}
 	| steno_tonic_pitch optional_notemode_duration chord_separator chord_items {
 		SCM its = scm_reverse_x ($4, SCM_EOL);
-		$$ = make_chord ($1, $2, scm_cons ($3, its));
+		$$ = make_chord_elements ($1, $2, scm_cons ($3, its));
 	}
 	;
 
@@ -2244,10 +2097,10 @@ step_number:
 		$$ = make_chord_step ($1, 0);
         }
 	| bare_unsigned '+' {
-		$$ = make_chord_step ($1, SHARP);
+		$$ = make_chord_step ($1, SHARP_ALTERATION);
 	}
 	| bare_unsigned CHORD_MINUS {
-		$$ = make_chord_step ($1, FLAT);
+		$$ = make_chord_step ($1, FLAT_ALTERATION);
 	}
 	;	
 
@@ -2315,6 +2168,14 @@ bare_unsigned:
 	}
 	;
 
+unsigned_number:
+	bare_unsigned  { $$ = scm_from_int ($1); }
+	| NUMBER_IDENTIFIER {
+		$$ = $1;
+	}
+	;
+	
+
 exclamations:
 		{ $$ = 0; }
 	| exclamations '!'	{ $$ ++; }
@@ -2341,6 +2202,15 @@ lyric_markup:
 	}
 	;
 
+full_markup_list:
+	MARKUPLINES
+		{ PARSER->lexer_->push_markup_state (); }
+	markup_list {
+		$$ = $3;
+		PARSER->lexer_->pop_state ();
+	}
+	;
+
 full_markup:
 	MARKUP_IDENTIFIER {
 		$$ = $1;
@@ -2372,6 +2242,9 @@ markup_list:
 	| markup_braced_list {
 		$$ = $1;
 	}
+	| markup_command_list {
+		$$ = scm_list_1 ($1);
+	}
 	;
 
 markup_composed_list:
@@ -2397,6 +2270,24 @@ markup_braced_list_body:
 	}
 	;
 
+markup_command_list:
+	MARKUP_LIST_HEAD_EMPTY	{
+		$$ = scm_list_1 ($1);
+	}
+	| MARKUP_LIST_HEAD_LIST0 markup_list	{
+		$$ = scm_list_2 ($1, $2);
+	}
+	| MARKUP_LIST_HEAD_SCM0 embedded_scm	{
+		$$ = scm_list_2 ($1, $2);
+	}
+	| MARKUP_LIST_HEAD_SCM0_LIST1 embedded_scm markup_list	{
+		$$ = scm_list_3 ($1, $2, $3);
+	}
+	| MARKUP_LIST_HEAD_SCM0_SCM1_LIST2 embedded_scm embedded_scm markup_list	{
+		$$ = scm_list_4 ($1, $2, $3, $4);
+	}
+	;
+
 markup_head_1_item:
 	MARKUP_HEAD_MARKUP0	{
 		$$ = scm_list_1 ($1);
@@ -2449,6 +2340,9 @@ simple_markup:
 	| MARKUP_HEAD_SCM0_SCM1 embedded_scm embedded_scm {
 		$$ = scm_list_3 ($1, $2, $3);
 	}
+	| MARKUP_HEAD_SCM0_MARKUP1_MARKUP2 embedded_scm markup markup {
+		$$ = scm_list_4 ($1, $2, $3, $4);
+	}
 	| MARKUP_HEAD_EMPTY {
 		$$ = scm_list_1 ($1);
 	}
@@ -2473,11 +2367,9 @@ markup:
 %%
 
 void
-Lily_parser::set_yydebug (bool )
+Lily_parser::set_yydebug (bool x)
 {
-#if 0
-	yydebug = 1;
-#endif
+	yydebug = x;
 }
 
 void
@@ -2503,17 +2395,26 @@ Lily_lexer::try_special_identifiers (SCM *destination, SCM sid)
 		*destination = sid;
 		return STRING_IDENTIFIER;
 	} else if (unsmob_book (sid)) {
-		*destination = unsmob_book (sid)->clone ()->self_scm ();
+		Book *book =  unsmob_book (sid)->clone ();
+		*destination = book->self_scm ();
+		book->unprotect ();
+
 		return BOOK_IDENTIFIER;
 	} else if (scm_is_number (sid)) {
 		*destination = sid;
 		return NUMBER_IDENTIFIER;
 	} else if (unsmob_context_def (sid)) {
-		*destination = unsmob_context_def (sid)->clone_scm ();
+		Context_def *def= unsmob_context_def (sid)->clone ();
+
+		*destination = def->self_scm ();
+		def->unprotect ();
+		
 		return CONTEXT_DEF_IDENTIFIER;
 	} else if (unsmob_score (sid)) {
 		Score *score = new Score (*unsmob_score (sid));
 		*destination = score->self_scm ();
+
+		score->unprotect ();
 		return SCORE_IDENTIFIER;
 	} else if (Music *mus = unsmob_music (sid)) {
 		mus = mus->clone ();
@@ -2524,6 +2425,7 @@ Lily_lexer::try_special_identifiers (SCM *destination, SCM sid)
 		bool is_event = scm_memq (ly_symbol2scm ("event"), mus->get_property ("types"))
 			!= SCM_BOOL_F;
 
+		mus->unprotect ();
 		return is_event ? EVENT_IDENTIFIER : MUSIC_IDENTIFIER;
 	} else if (unsmob_duration (sid)) {
 		*destination = unsmob_duration (sid)->smobbed_copy ();
@@ -2531,8 +2433,9 @@ Lily_lexer::try_special_identifiers (SCM *destination, SCM sid)
 	} else if (unsmob_output_def (sid)) {
 		Output_def *p = unsmob_output_def (sid);
 		p = p->clone ();
-
+	
 		*destination = p->self_scm ();
+		p->unprotect ();
 		return OUTPUT_DEF_IDENTIFIER;
 	} else if (Text_interface::is_markup (sid)) {
 		*destination = sid;
@@ -2544,70 +2447,10 @@ Lily_lexer::try_special_identifiers (SCM *destination, SCM sid)
 	return -1;	
 }
 
-Music *
-property_op_to_music (SCM op)
-{
-	Music *m = 0;
-	SCM tag = scm_car (op);
-	SCM symbol = scm_cadr (op);
-	SCM args = scm_cddr (op);
-	SCM grob_val = SCM_UNDEFINED;
-	SCM grob_path = SCM_UNDEFINED;
-	SCM val = SCM_UNDEFINED;
-	
-	if (tag == ly_symbol2scm ("assign"))
-		{
-		m = MY_MAKE_MUSIC ("PropertySet");
-		val = scm_car (args);
-		}
-	else if (tag == ly_symbol2scm ("unset"))
-		m = MY_MAKE_MUSIC ("PropertyUnset");
-	else if (tag == ly_symbol2scm ("push"))
-		{
-		m = MY_MAKE_MUSIC ("OverrideProperty");
-		grob_val = scm_car (args);
-		grob_path = scm_cdr (args);
-		m->set_property ("pop-first", SCM_BOOL_T);
-		}
-	else if (tag == ly_symbol2scm ("pop")) {
-		m = MY_MAKE_MUSIC ("RevertProperty");
-		grob_path = args;
-		}
-
-	m->set_property ("symbol", symbol);
-
-	if (val != SCM_UNDEFINED)
-		m->set_property ("value", val);
-	if (grob_val != SCM_UNDEFINED)
-		m->set_property ("grob-value", grob_val);
-	if (grob_path != SCM_UNDEFINED)
-		m->set_property ("grob-property-path", grob_path);
-
-	return m;
-}
-
-SCM
-context_spec_music (SCM type, SCM id, SCM m, SCM ops, bool create_new)
-{
-	Music *csm = MY_MAKE_MUSIC ("ContextSpeccedMusic");
-
-	csm->set_property ("element", m);
-
-	csm->set_property ("context-type",
-		scm_is_symbol (type) ? type : scm_string_to_symbol (type));
-	csm->set_property ("property-operations", ops);
-	if (create_new)
-		csm->set_property ("create-new", SCM_BOOL_T);
-
-	if (scm_is_string (id))
-		csm->set_property ("context-id", id);
-	return csm->unprotect ();
-}
-
 SCM
 get_next_unique_context_id ()
 {
-	return scm_makfrom0str ("$uniqueContextId");
+	return scm_from_locale_string ("$uniqueContextId");
 }
 
 
@@ -2617,11 +2460,11 @@ get_next_unique_lyrics_context_id ()
 	static int new_context_count;
 	char s[128];
 	snprintf (s, sizeof (s)-1, "uniqueContext%d", new_context_count++);
-	return scm_makfrom0str (s);
+	return scm_from_locale_string (s);
 }
 
 
-Music *
+SCM
 run_music_function (Lily_parser *parser, SCM expr)
 {
 	SCM func = scm_car (expr);
@@ -2630,34 +2473,15 @@ run_music_function (Lily_parser *parser, SCM expr)
 	SCM sig = scm_object_property (func, ly_symbol2scm ("music-function-signature"));
 
 	SCM type_check_proc = ly_lily_module_constant ("type-check-list");
-	bool ok  = true;
 
 	if (!to_boolean (scm_call_3  (type_check_proc, scm_cadr (expr), sig, args)))
 	{
 		parser->error_level_ = 1;
-		ok = false;
+		return LOWLEVEL_MAKE_SYNTAX (ly_lily_module_constant ("void-music"), scm_list_2 (parser->self_scm (), make_input (*loc)));
 	}
 
-	SCM m = SCM_EOL;
-	if (ok)
-		m = scm_apply_0 (func, scm_cons (parser->self_scm(),
-						 scm_cdr (expr)));
-
-
-	Music* retval = 0;
-	if (unsmob_music (m))
-		{
-		retval = unsmob_music (m);
-		retval->protect ();
-		}
-	else
-		{
-		if (ok)
-			loc->error (_ ("music head function must return Music object")); 
-		retval = MY_MAKE_MUSIC ("Music");
-		}
-	retval->set_spot (*loc);
-	return retval;
+	SCM syntax_args = scm_list_4 (parser->self_scm (), make_input (*loc), func, args);
+	return LOWLEVEL_MAKE_SYNTAX (ly_lily_module_constant ("music-function"), syntax_args);
 }
 
 bool
@@ -2679,6 +2503,13 @@ is_regular_identifier (SCM id)
   return v;
 }
 
+Music *
+make_music_with_input (SCM name, Input where)
+{
+       Music *m = make_music_by_name (name);
+       m->set_spot (where);
+       return m;
+}
 
 SCM
 get_first_context_id (SCM type, Music *m)
@@ -2709,15 +2540,15 @@ void
 set_music_properties (Music *p, SCM a)
 {
   for (SCM k = a; scm_is_pair (k); k = scm_cdr (k))
- 	p->internal_set_property (scm_caar (k), scm_cdar (k));
+ 	p->set_property (scm_caar (k), scm_cdar (k));
 }
 
 
 SCM
-make_chord_step (int step, int alter)
+make_chord_step (int step, Rational alter)
 {
 	if (step == 7)
-		alter += FLAT;
+		alter += FLAT_ALTERATION;
 
 	while (step < 0)
 		step += 7;
@@ -2727,13 +2558,10 @@ make_chord_step (int step, int alter)
 
 
 SCM
-make_chord (SCM pitch, SCM dur, SCM modification_list)
+make_chord_elements (SCM pitch, SCM dur, SCM modification_list)
 {
-	SCM chord_ctor = ly_lily_module_constant ("construct-chord");
-	SCM ch = scm_call_3 (chord_ctor, pitch, dur, modification_list);
-
-	unsmob_music (ch)->protect();	
-	return ch;
+	SCM chord_ctor = ly_lily_module_constant ("construct-chord-elements");
+	return scm_call_3 (chord_ctor, pitch, dur, modification_list);
 }
 
 
@@ -2745,19 +2573,10 @@ ly_input_procedure_p (SCM x)
 		|| (scm_is_pair (x) && ly_is_procedure (scm_car (x)));
 }
 
-Music*
-set_property_music (SCM sym, SCM value)
-{
-	Music *p = MY_MAKE_MUSIC ("PropertySet");
-	p->set_property ("symbol", sym);
-	p->set_property ("value", value);
-	return p;
-}
-
 SCM
-make_music_relative (Pitch start, SCM music)
+make_music_relative (Pitch start, SCM music, Input loc)
 {
-	Music *relative = MY_MAKE_MUSIC ("RelativeOctaveMusic");
+	Music *relative = MY_MAKE_MUSIC ("RelativeOctaveMusic", loc);
  	relative->set_property ("element", music);
 	
 	Music *m = unsmob_music (music);
@@ -2767,16 +2586,6 @@ make_music_relative (Pitch start, SCM music)
 	return relative->unprotect ();
 }
 
-SCM
-make_lyric_combine_music (SCM name, SCM music)
-{
-	Music *combine = MY_MAKE_MUSIC ("LyricCombineMusic");
-	combine->set_property ("element", music);
- 	combine->set_property ("associated-context", name);
-	return combine->unprotect ();
-}
-
-
 int
 yylex (YYSTYPE *s, YYLTYPE *loc, void *v)
 {