#include <cstdio>
-#include "ly-module.hh"
#include "main.hh"
#include "paper-book.hh"
#include "source-file.hh"
SCM
internal_ly_parse_scm (Parse_start * ps)
{
- Source_file *sf =ps->start_location_.source_file_;
+ Source_file *sf = ps->start_location_.source_file_;
SCM port = sf->get_port ();
- int off = ps->start_location_.defined_str0_ - sf->to_str0 ();
+ int off = ps->start_location_.start_ - sf->to_str0 ();
scm_seek (port, scm_long2num (off), scm_long2num (SEEK_SET));
SCM from = scm_ftell (port);
static SCM module = SCM_BOOL_F;
if (module == SCM_BOOL_F)
{
- SCM function = ly_scheme_function ("make-safe-lilypond-module");
+ SCM function = ly_lily_module_constant ("make-safe-lilypond-module");
module = scm_call_0 (function);
}
answer = scm_eval (form, module);