From: David Kastrup <dak@gnu.org>
Date: Fri, 28 Jul 2017 15:36:18 +0000 (+0200)
Subject: Issue 5167/4: Parser: let `assignment_id' return a symbol
X-Git-Url: https://git.donarmstrong.com/lilypond.git?p=lilypond.git;a=commitdiff_plain;h=ef31f0442c7be02c90b9e6b2b9e9809def42ae37

Issue 5167/4: Parser: let `assignment_id' return a symbol

That's actually what's needed rather than a string.
---

diff --git a/lily/parser.yy b/lily/parser.yy
index f81dc69e9b..d9812b1b9f 100644
--- a/lily/parser.yy
+++ b/lily/parser.yy
@@ -672,7 +672,13 @@ header_block:
 */
 assignment_id:
 	STRING
+	{
+		$$ = scm_string_to_symbol ($1);
+	}
 	| SYMBOL
+	{
+		$$ = scm_string_to_symbol ($1);
+	}
 	;
 
 assignment:
@@ -681,12 +687,12 @@ assignment:
                 $$ = SCM_UNSPECIFIED;
 	}
 	| assignment_id '.' property_path '=' identifier_init {
-		SCM path = scm_cons (scm_string_to_symbol ($1), $3);
+		SCM path = scm_cons ($1, $3);
 		parser->lexer_->set_identifier (path, $5);
                 $$ = SCM_UNSPECIFIED;
 	}
 	| assignment_id ',' property_path '=' identifier_init {
-		SCM path = scm_cons (scm_string_to_symbol ($1), $3);
+		SCM path = scm_cons ($1, $3);
 		parser->lexer_->set_identifier (path, $5);
                 $$ = SCM_UNSPECIFIED;
 	}