diff options
| author | gareuselesinge | 2013-10-01 15:35:34 +0000 |
|---|---|---|
| committer | gareuselesinge | 2013-10-01 15:35:34 +0000 |
| commit | 8ef45dfc3f153b123d2a35156dbc0d570f325160 (patch) | |
| tree | 169446c74aed4365622ffdb7b6369b64cd8a05e7 | |
| parent | 4633baa1fc32e8481693a307f1707aac3d9ae109 (diff) | |
CoqIDE: fixed advance_until wrt unfocusing
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16834 85f007b7-540e-0410-9357-904b9bb8a0f7
| -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 b30f7cbd98..5769415adf 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 |