diff options
| author |  ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-09-13 13:12:40 +0000 |
|---|---|---|
| committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-09-13 13:12:40 +0000 |
| commit | 338608a73bc059670eb8196788c45a37419a3e4d (patch) | |
| tree | 2938c4d34a758c94990dbd440f7ef722320f0dc2 /grammar | |
| parent | 098200d7e14805e8ae8b8f3873faec3ee3c096ad (diff) | |
Made Pp.std_ppcmds opaque.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15795 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'grammar')
| -rw-r--r-- | grammar/tacextend.ml4 | 2 | ||||
| -rw-r--r-- | grammar/vernacextend.ml4 | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/grammar/tacextend.ml4 b/grammar/tacextend.ml4 index c3d66642c..87425ef54 100644 --- a/grammar/tacextend.ml4 +++ b/grammar/tacextend.ml4 @@ -191,7 +191,7 @@ let declare_tactic loc s cl = $atomic_tactics$ with e -> Pp.msg_warning - (Stream.iapp + (Pp.app (Pp.str ("Exception in tactic extend " ^ $se$ ^": ")) (Errors.print e)); Egramml.extend_tactic_grammar $se$ $gl$; diff --git a/grammar/vernacextend.ml4 b/grammar/vernacextend.ml4 index d6b023fd4..029755f08 100644 --- a/grammar/vernacextend.ml4 +++ b/grammar/vernacextend.ml4 @@ -58,7 +58,7 @@ let declare_command loc s nt cl = try Vernacinterp.vinterp_add $se$ $funcl$ with e -> Pp.msg_warning - (Stream.iapp + (Pp.app (Pp.str ("Exception in vernac extend " ^ $se$ ^": ")) (Errors.print e)); Egramml.extend_vernac_command_grammar $se$ $nt$ $gl$ |