diff options
| author | Pierre Courtieu | 2014-12-16 14:13:59 +0100 |
|---|---|---|
| committer | Pierre Courtieu | 2014-12-16 14:13:59 +0100 |
| commit | 5ba84979df97996cd04f44e506742bb58ecf0465 (patch) | |
| tree | 565c966fd3f4f73a2182337933e147d73a4c6971 /proofs | |
| parent | c816bdb44625b6dba8efa4b0ba39f162b06b737d (diff) | |
msg_info now puts infomsg tag in emacs mode.
Fixes the idtac "string" not appearing in proofgeneral because
printined *before* the goal.
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/logic_monad.ml | 2 | ||||
| -rw-r--r-- | proofs/refiner.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/proofs/logic_monad.ml b/proofs/logic_monad.ml index 5bad5f0f52..b9c850840d 100644 --- a/proofs/logic_monad.ml +++ b/proofs/logic_monad.ml @@ -95,7 +95,7 @@ struct let print_char = fun c -> (); fun () -> print_char c (** {!Pp.pp}. The buffer is also flushed. *) - let print = fun s -> (); fun () -> try Pp.pp s; Pp.pp_flush () with e -> + let print = fun s -> (); fun () -> try Pp.msg_info s; Pp.pp_flush () with e -> let (e, info) = Errors.push e in raise ~info e () let timeout = fun n t -> (); fun () -> diff --git a/proofs/refiner.ml b/proofs/refiner.ml index e443ce0772..ea35946102 100644 --- a/proofs/refiner.ml +++ b/proofs/refiner.ml @@ -57,7 +57,7 @@ let tclIDTAC gls = goal_goal_list gls (* the message printing identity tactic *) let tclIDTAC_MESSAGE s gls = - pp (hov 0 s); pp_flush (); tclIDTAC gls + Pp.msg_info (hov 0 s); pp_flush (); tclIDTAC gls (* General failure tactic *) let tclFAIL_s s gls = errorlabstrm "Refiner.tclFAIL_s" (str s) |