From bfcb621c400cc717b485c38d08de5faa1b6cddd8 Mon Sep 17 00:00:00 2001
From: David Kastrup <dak@gnu.org>
Date: Fri, 26 Jun 2015 12:20:01 +0200
Subject: [PATCH] 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.
---
 lily/parser.yy | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

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);						\
-- 
2.39.2