diff options
| author | aspiwack | 2013-11-02 15:34:06 +0000 |
|---|---|---|
| committer | aspiwack | 2013-11-02 15:34:06 +0000 |
| commit | fed5cbc5b006447bb3d877b3eeb35f7c76e96661 (patch) | |
| tree | 5901b48b101916f3cd2d523f2e3e481eaaf3905c /proofs | |
| parent | 260965dcf60d793ba01110ace8945cf51ef6531f (diff) | |
Uses Proofview.tclEXTEND more sparingly.
It is used where failures can be caughts (tclORELSE, tclTRY, …) rather than
at each tclTHEN. Hopefully avoiding making things a bit less slow.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16968 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/proofview.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/proofview.ml b/proofs/proofview.ml index ce2decc3e4..388778ff7d 100644 --- a/proofs/proofview.ml +++ b/proofs/proofview.ml @@ -313,7 +313,7 @@ let rec tclDISPATCHGEN null join tacs env = Inner.get >>= fun step' -> Inner.set {step' with comb=step.comb@step'.comb} >> Inner.return (join x y) - | _ , _ -> raise SizeMismatch + | _ , _ -> tclZERO SizeMismatch env let unitK () () = () let tclDISPATCH = tclDISPATCHGEN () unitK |