diff options
| author | Arnaud Spiwack | 2014-07-03 15:55:00 +0200 |
|---|---|---|
| committer | Arnaud Spiwack | 2014-07-10 10:31:21 +0200 |
| commit | 7ed370257e576dd084f89eae52fcc2135d4fbee3 (patch) | |
| tree | 7cac2dd8ba7fa918ac2e0eb9cdd1d0edcaf59afa | |
| parent | ab5d23b0a82fba784080946f6bb00dd123f64080 (diff) | |
Fix a oversight in 5bf9e67b .
About 8 months after making this commit, I realised that I forgot to change a tclORELSE into a tclOR (which was the whole point of the commit to begin with). Shame on me.
It does not seem to have much of an effect on efficiency, though. It may be a hair faster, but mostly indistinguishably so.
| -rw-r--r-- | tactics/tacinterp.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index c749e2d720..9d8bc68431 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -1243,7 +1243,7 @@ and interp_match_successes lz ist s : typed_generic_argument GTac.t = match peek t with | Nil -> Proofview.tclZERO e | Cons (t1,t') -> - Proofview.tclORELSE + Proofview.tclOR (interp_match_success ist t1) begin fun e -> (* Honors Ltac's failure level. *) |