Issue 4463: Fix regression with -ddebug-parser

[lilypond.git] / lily / parser.yy

diff --git a/lily/parser.yy b/lily/parser.yy
index 24f38b0e74b14dea9cffa3384f83e63aa5d97169..42a83fc6ced9677708f591590aefd56ef7adda97 100644 (file)
--- 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);                                               \