Fix some bugs in the dynamic engraver and PostScript backend

[lilypond.git] / lily / lexer.ll

diff --git a/lily/lexer.ll b/lily/lexer.ll
index e6e891f284741c27be74ea037ae165d901d6d540..d69dbb5ffde1e825a8356408e829a96749a0979e 100644 (file)
--- a/lily/lexer.ll
+++ b/lily/lexer.ll
@@ -190,13 +190,11 @@ BOM_UTF8  \357\273\277
        s = s.substr (0, s.rfind ('\"'));
 
        yy_pop_state ();
-
-       SCM top_scope = scm_car (scm_last_pair (scopes_));
-       scm_module_define (top_scope, ly_symbol2scm ("version-seen?"), SCM_BOOL_T);
-
        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);
 
 }
 <sourcefilename>\"[^"]*\"     {