diff options
author | 2014-08-25 13:55:03 +0200 | |
---|---|---|
committer | 2014-08-25 13:55:03 +0200 | |
commit | 6c72e455a048d69048ddf386c43d5fc5eb4597a4 (patch) | |
tree | 8cb2e7d307139b1da28ea62b0e2d12b7374b3fc4 /tactics/tactics.ml | |
parent | 19a7a5789c42a143f92232ce15298c2f44db96ba (diff) |
Fixing previous commit.
Diffstat (limited to 'tactics/tactics.ml')
-rw-r--r-- | tactics/tactics.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index 407f367ed..7e6e960a6 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -1339,7 +1339,7 @@ let apply_in_once sidecond_first with_delta with_destruct with_evars naming Tacticals.New.tclTHEN (apply_clear_request clear_flag false c) (tac id)) - with e when with_destruct && when Errors.noncritical e -> + with e when with_destruct && Errors.noncritical e -> let e = Errors.push e in descend_in_conjunctions aux (fun _ -> raise e) c end |