diff options
| author | Pierre-Marie Pédrot | 2020-07-18 11:34:12 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-07-18 11:34:12 +0200 |
| commit | e6d92a9765f84c80f8c6a102fe5480490c747313 (patch) | |
| tree | ee51e80ca8001dbad69cc93d2d8e97b826eb2cc6 /tactics | |
| parent | 689a391bddb956fdc05ec267866ef2253c731cc3 (diff) | |
| parent | d2ca1efe969ece40254ba19281964c7f391f3f99 (diff) | |
Merge PR #12588: [exn] Remove some uses of print
Ack-by: gares
Reviewed-by: ppedrot
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/class_tactics.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/class_tactics.ml b/tactics/class_tactics.ml index 82ce2234e3..63cafbf76d 100644 --- a/tactics/class_tactics.ml +++ b/tactics/class_tactics.ml @@ -236,7 +236,7 @@ let with_prods nprods h f = f gl (h, diff) with e when CErrors.noncritical e -> let e, info = Exninfo.capture e in - Tacticals.New.tclZEROMSG ~info (CErrors.print e) end + Proofview.tclZERO ~info e end else Proofview.Goal.enter begin fun gl -> if Int.equal nprods 0 then f gl (h, None) |