diff options
| author | Enrico Tassi | 2014-07-10 15:59:44 +0200 |
|---|---|---|
| committer | Enrico Tassi | 2014-07-11 10:15:06 +0200 |
| commit | 2a805fd99b96746dbfe381d64cd7eaba84fdca79 (patch) | |
| tree | 77e0c47e097c4edebe9eea5f839488c91264e9b3 /printing | |
| parent | 31b99c5671c956de455372e43f935e1c70006f9d (diff) | |
Feedback: LoadedFile + Goals
LoadedFile is generated when a .vo is loaded
Goals is generated when -feedback-goals
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/printer.ml | 4 | ||||
| -rw-r--r-- | printing/printer.mli | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/printing/printer.ml b/printing/printer.ml index 3b5c80c62f..03f416a510 100644 --- a/printing/printer.ml +++ b/printing/printer.ml @@ -549,12 +549,12 @@ let pr_goal x = !printer_pr.pr_goal x (* End abstraction layer *) (**********************************************************************) -let pr_open_subgoals () = +let pr_open_subgoals ?(proof=Proof_global.give_me_the_proof ()) () = (* spiwack: it shouldn't be the job of the printer to look up stuff in the [evar_map], I did stuff that way because it was more straightforward, but seriously, [Proof.proof] should return [evar_info]-s instead. *) - let p = Proof_global.give_me_the_proof () in + let p = proof in let (goals , stack , shelf, given_up, sigma ) = Proof.proof p in let stack = List.map (fun (l,r) -> List.length l + List.length r) stack in let seeds = Proof.V82.top_evars p in diff --git a/printing/printer.mli b/printing/printer.mli index eb181d4265..aa949232ac 100644 --- a/printing/printer.mli +++ b/printing/printer.mli @@ -128,7 +128,7 @@ val pr_subgoals : ?pr_first:bool -> string option -> evar_map -> evar val pr_subgoal : int -> evar_map -> goal list -> std_ppcmds val pr_concl : int -> evar_map -> goal -> std_ppcmds -val pr_open_subgoals : unit -> std_ppcmds +val pr_open_subgoals : ?proof:Proof.proof -> unit -> std_ppcmds val pr_nth_open_subgoal : int -> std_ppcmds val pr_evar : (evar * evar_info) -> std_ppcmds val pr_evars_int : int -> evar_info Evar.Map.t -> std_ppcmds |