* lily/my-lily-lexer.cc (start_main_input): define input-file-name

[lilypond.git] / lily / lexer.ll

diff --git a/lily/lexer.ll b/lily/lexer.ll
index baa1d6f0f0f7c5cff7ab98d961722ec742ab2f4c..a9163c51b61febca23749223b5797db94ceb1d8c 100644 (file)
--- a/lily/lexer.ll
+++ b/lily/lexer.ll
@@ -179,7 +179,11 @@ HYPHEN             --
        s = s.left_string (s.index_last ('\"'));
 
        yy_pop_state();
-       this->here_input().source_file_->name_ = s; 
+       this->here_input().source_file_->name_ = s;
+       scm_module_define (gh_car (scopes_),
+                    ly_symbol2scm ("input-file-name"),
+                    scm_makfrom0str (s.to_str0()));
+
 }
 
 <version>.     {