diff options
author | gareuselesinge <gareuselesinge@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-10-01 15:35:34 +0000 |
---|---|---|
committer | gareuselesinge <gareuselesinge@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-10-01 15:35:34 +0000 |
commit | 8ef45dfc3f153b123d2a35156dbc0d570f325160 (patch) | |
tree | 169446c74aed4365622ffdb7b6369b64cd8a05e7 /ide | |
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
Diffstat (limited to 'ide')
-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 |