(context-doc): add aliases to

[lilypond.git] / lily / parser.yy

diff --git a/lily/parser.yy b/lily/parser.yy
index fdf8f5c3d9eebc8db6244259f73b33810317c404..2b8ec7198c4efc6a9d4e6c2acc92954523814d84 100644 (file)
--- a/lily/parser.yy
+++ b/lily/parser.yy
@@ -582,7 +582,7 @@ translator_spec_body:
        }
        | translator_spec_body ALIAS STRING  {
                Translator_def*td = unsmob_translator_def ($$);
-               td->type_aliases_ = scm_cons ($3, td->type_aliases_);
+               td->type_aliases_ = scm_cons (scm_string_to_symbol ($3), td->type_aliases_);
        }
        | translator_spec_body GROBDESCRIPTIONS embedded_scm {
                Translator_def*td = unsmob_translator_def($$);