- new_input (main_input_string_, &global_input_file->sources_);
- allow_includes_b_ = allow_includes_b_ && ! (safe_global_b);
+ new_input (main_input_name_, &global_input_file->sources_);
+ allow_includes_b_ = allow_includes_b_ && ! safe_global_b;
+
+ scm_module_define (gh_car (scopes_),
+ ly_symbol2scm ("input-file-name"),
+ scm_makfrom0str (main_input_name_.to_str0 ()));