module = scm_gc_protect_object (scm_call_0 (function));
}
- // We define the parser so trusted Scheme functions can
- // access the real namespace underlying the parser.
- if (ps->parser_)
- scm_module_define (module, ly_symbol2scm ("parser"),
- ps->parser_->self_scm ());
return scm_eval (ps->form_, module);
}
return scm_primitive_eval (ps->form_);
{
Parse_start ps (form, i, safe, parser);
- SCM ans = scm_c_with_fluids
- (scm_list_2 (ly_lily_module_constant ("%parser"),
- ly_lily_module_constant ("%location")),
- scm_list_2 (parser->self_scm (),
- i.smobbed_copy ()),
+ SCM ans = scm_c_with_fluid
+ (ly_lily_module_constant ("%location"),
+ i.smobbed_copy (),
parse_protect_global ? protected_ly_eval_scm
: catch_protected_eval_body, (void *) &ps);