diff options
| author | Jim Fehrle | 2019-07-04 23:19:10 -0700 |
|---|---|---|
| committer | Jim Fehrle | 2019-09-19 12:56:42 -0700 |
| commit | 04105f0430cad4e8d018ab47efccf79bf8511a32 (patch) | |
| tree | f30537a66cb9b1c5891d5ede8b50c0ef44abc53c /toplevel | |
| parent | 0074c7201e77ae27fa1bd79e05a084729266c55b (diff) | |
Fix #10420 Add dependent evar mapping info to output
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/coqloop.ml | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/toplevel/coqloop.ml b/toplevel/coqloop.ml index 07466d641e..1f319d2bfd 100644 --- a/toplevel/coqloop.ml +++ b/toplevel/coqloop.ml @@ -405,7 +405,17 @@ let rec vernac_loop ~state = | Some (VernacShowGoal {gid; sid}) -> let proof = Stm.get_proof ~doc:state.doc (Stateid.of_int sid) in - Feedback.msg_notice (Printer.pr_goal_emacs ~proof gid sid); + let goal = Printer.pr_goal_emacs ~proof gid sid in + let evars = + match proof with + | None -> mt() + | Some p -> + let gl = (Evar.unsafe_of_int gid) in + let { Proof.sigma } = Proof.data p in + try Printer.print_dependent_evars (Some gl) sigma [ gl ] + with Not_found -> mt() + in + Feedback.msg_notice (v 0 (goal ++ evars)); vernac_loop ~state | None -> |