From: David Kastrup <dak@gnu.org>
Date: Fri, 26 Jun 2015 10:20:01 +0000 (+0200)
Subject: Issue 4463: Fix regression with -ddebug-parser
X-Git-Tag: release/2.19.22-1~9
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=bfcb621c400cc717b485c38d08de5faa1b6cddd8;p=lilypond.git

Issue 4463: Fix regression with -ddebug-parser

Running

    lilypond -ddebug-parser scheme-sandbox

led to the error message
scm/lily.scm:1056:21: In procedure value->lily-string in expression (ly:parse-file file-name):
scm/lily.scm:1056:21: Wrong number of arguments to #<procedure value->lily-string (arg)>

This was an obvious oversight in the implementation of issue 4442.
---

diff --git a/lily/parser.yy b/lily/parser.yy
index 24f38b0e74..42a83fc6ce 100644
--- a/lily/parser.yy
+++ b/lily/parser.yy
@@ -41,9 +41,8 @@
 	do {								\
 		if (scm_is_eq (value, SCM_UNSPECIFIED))			\
 			break;						\
-		SCM s = scm_call_2 (ly_lily_module_constant ("value->lily-string"), \
-				    value,				\
-				    parser->self_scm ());		\
+		SCM s = scm_call_1 (ly_lily_module_constant ("value->lily-string"), \
+				    value);				\
 		char *p = scm_to_locale_string (s);			\
 		fputs (p, file);					\
 		free (p);						\