From da266192deb12569a1cfc32355411fa9f4700d02 Mon Sep 17 00:00:00 2001
From: David Kastrup <dak@gnu.org>
Date: Wed, 1 Jan 2014 21:19:42 +0100
Subject: [PATCH] Issue 3770: Use value->lily-string for -ddebug-parser

---
 lily/parser.yy | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

diff --git a/lily/parser.yy b/lily/parser.yy
index c08442d75f..ee499ac15c 100644
--- a/lily/parser.yy
+++ b/lily/parser.yy
@@ -37,17 +37,17 @@
 #define YYLLOC_DEFAULT(Current,Rhs,N) \
 	((Current).set_location ((Rhs)[1], (Rhs)[N]))
 
-#define YYPRINT(file, type, value)                                      \
-        do {                                                            \
-                if (scm_is_eq (value, SCM_UNSPECIFIED))                 \
-                        break;                                          \
-                char *p = scm_to_locale_string                          \
-                        (scm_simple_format (SCM_BOOL_F,                 \
-                                            scm_from_locale_string ("~S"), \
-                                            scm_list_1 (value)));       \
-                fputs (p, file);                                        \
-                free (p);                                               \
-        } while (0)
+#define YYPRINT(file, type, value)					\
+	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 ());		\
+		char *p = scm_to_locale_string (s);			\
+		fputs (p, file);					\
+		free (p);						\
+	} while (0)
 
 %}
 
-- 
2.39.2