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 /tactics | |
| 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
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tacinterp.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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 |