diff options
-rw-r--r-- | ide/coqOps.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ide/coqOps.ml b/ide/coqOps.ml index b30f7cbd9..5769415ad 100644 --- a/ide/coqOps.ml +++ b/ide/coqOps.ml @@ -518,7 +518,8 @@ object(self) self#exit_focus tip; push_msg Notice msg; self#mark_as_needed sentence; - loop tip (List.rev topstack) + if Queue.is_empty queue then loop tip [] + else loop tip (List.rev topstack) | Fail (id, loc, msg) -> let sentence = Stack.pop cmd_stack in self#process_interp_error queue sentence loc msg id |