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