diff options
| author | Pierre-Marie Pédrot | 2018-12-19 16:31:34 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-12-19 16:31:34 +0100 |
| commit | b264bb65b8d985b2e5b1c5642dee317bcf8a9504 (patch) | |
| tree | 233d2db70022f8f4b30540f1ac03db1e03cfd09c /proofs/refine.ml | |
| parent | c687f514b9d86c2873ff5a519cd0f3b9694cf6e8 (diff) | |
| parent | 1499565d4ef1165d34b5bbb927e52a754903e077 (diff) | |
Merge PR #9139: [engine] Allow debug printers to access the environment.
Diffstat (limited to 'proofs/refine.ml')
| -rw-r--r-- | proofs/refine.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/proofs/refine.ml b/proofs/refine.ml index d812a8cad7..1d796fece5 100644 --- a/proofs/refine.ml +++ b/proofs/refine.ml @@ -107,8 +107,8 @@ let generic_refine ~typecheck f gl = (* Mark goals *) let sigma = Proofview.Unsafe.mark_as_goals sigma comb in let comb = CList.map (fun x -> Proofview.goal_with_state x state) comb in - let trace () = Pp.(hov 2 (str"simple refine"++spc()++ - Termops.Internal.print_constr_env env sigma c)) in + let trace env sigma = Pp.(hov 2 (str"simple refine"++spc()++ + Termops.Internal.print_constr_env env sigma c)) in Proofview.Trace.name_tactic trace (Proofview.tclUNIT v) >>= fun v -> Proofview.Unsafe.tclSETENV (Environ.reset_context env) <*> Proofview.Unsafe.tclEVARS sigma <*> |