* scm/output-ps.scm (new-text): don't access t glyph for getting

[lilypond.git] / lily / lexer.ll

diff --git a/lily/lexer.ll b/lily/lexer.ll
index 29e4d6367d0cd70557aa4964c90b6a2889d2710d..081dd002215078bc6996579bf418db57d648b2c8 100644 (file)
--- a/lily/lexer.ll
+++ b/lily/lexer.ll
@@ -186,6 +186,10 @@ HYPHEN             --
        yy_pop_state ();
        if (!is_valid_version (s))
                return INVALID;
+
+       SCM top_scope = scm_car (scm_last_pair (scopes_));
+       scm_module_define (top_scope, ly_symbol2scm ("version-seen?"), SCM_BOOL_T);
+
 }
 <renameinput>\"[^"]*\"     {
        String s (YYText () + 1);