SCM
Global_context::get_output ()
{
- return get_score_context ()->get_property ("output");
+ Context * c = get_score_context ();
+ if (c)
+ return c->get_property ("output");
+ else
+ return SCM_EOL;
}
void
if (w.main_part_.is_infinity () || w > final_mom)
break;
+ if (w == prev_mom_)
+ {
+ programming_error ("Moment is not increasing. Aborting interpretation.");
+ break ;
+ }
+
+
if (first)
{
/*