Fix #93.

[lilypond.git] / lily / global-context.cc

diff --git a/lily/global-context.cc b/lily/global-context.cc
index ddcec501ba4ec521d56176387d004405210fd96e..6e0e1c4379af9b971a00944e2e964414b850742a 100644 (file)
--- a/lily/global-context.cc
+++ b/lily/global-context.cc
@@ -18,7 +18,6 @@ using namespace std;
 #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)
@@ -140,6 +139,13 @@ Global_context::run_iterator_on_me (Music_iterator *iter)
       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)
        {
          /*