diff options
| author | ppedrot | 2013-11-12 16:56:04 +0000 |
|---|---|---|
| committer | ppedrot | 2013-11-12 16:56:04 +0000 |
| commit | 2c20d679b9a5704515790740062f9ca0f4108d5c (patch) | |
| tree | cf979cc59b2c7bddf1aa54c1aec8d4aefc18d6b2 | |
| parent | bf33614eef6c26c169ab9dae9fd2f3713d19d23f (diff) | |
Do not print tactic notation names at each interpretation step.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@17082 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | proofs/proof_type.ml | 2 | ||||
| -rw-r--r-- | proofs/proof_type.mli | 2 | ||||
| -rw-r--r-- | tactics/tacinterp.ml | 2 | ||||
| -rw-r--r-- | toplevel/himsg.ml | 2 |
4 files changed, 4 insertions, 4 deletions
diff --git a/proofs/proof_type.ml b/proofs/proof_type.ml index 737cea68c4..c04c44193e 100644 --- a/proofs/proof_type.ml +++ b/proofs/proof_type.ml @@ -49,7 +49,7 @@ type rule = prim_rule (** Ltac traces *) type ltac_call_kind = - | LtacNotationCall of string + | LtacNotationCall of KerName.t | LtacNameCall of ltac_constant | LtacAtomCall of glob_atomic_tactic_expr | LtacVarCall of Id.t * glob_tactic_expr diff --git a/proofs/proof_type.mli b/proofs/proof_type.mli index f7cd8ad87d..8cc6bf76f6 100644 --- a/proofs/proof_type.mli +++ b/proofs/proof_type.mli @@ -76,7 +76,7 @@ type tactic = goal sigma -> goal list sigma (** TODO: Move those definitions somewhere sensible *) type ltac_call_kind = - | LtacNotationCall of string + | LtacNotationCall of KerName.t | LtacNameCall of ltac_constant | LtacAtomCall of glob_atomic_tactic_expr | LtacVarCall of Id.t * glob_tactic_expr diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index e009424853..1ad8b05053 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -2305,7 +2305,7 @@ and interp_atomic ist tac = Proofview.Goal.return (Id.Map.add x v accu) in List.fold_right addvar l (Proofview.Goal.return ist.lfun) >>= fun lfun -> - let trace = push_trace (loc,LtacNotationCall (KerName.to_string s)) ist in + let trace = push_trace (loc,LtacNotationCall s) ist in let ist = { lfun = lfun; extra = TacStore.set ist.extra f_trace trace; } in diff --git a/toplevel/himsg.ml b/toplevel/himsg.ml index b1b1a5ffe8..8df362f3ac 100644 --- a/toplevel/himsg.ml +++ b/toplevel/himsg.ml @@ -1157,7 +1157,7 @@ let explain_ltac_call_trace (nrep,last,trace,loc) = in let pr_call (n,ck) = (match ck with - | Proof_type.LtacNotationCall s -> quote (str s) + | Proof_type.LtacNotationCall kn -> quote (KerName.print kn) | Proof_type.LtacNameCall cst -> quote (Pptactic.pr_ltac_constant cst) | Proof_type.LtacVarCall (id,t) -> quote (Nameops.pr_id id) ++ strbrk " (bound to " ++ |