#include "music-iterator.hh"
#include "music.hh"
#include "output-def.hh"
-#include "stream-event.hh"
#include "warn.hh"
Global_context::Global_context (Output_def *o, Object_key *key)
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)
{
/*