diff options
| author | herbelin | 2007-02-24 14:17:54 +0000 |
|---|---|---|
| committer | herbelin | 2007-02-24 14:17:54 +0000 |
| commit | 67c294eba2b62b1cc0ffa8fe01687ea99bb1d64c (patch) | |
| tree | 2090870c43723647c4040b858d94d61ae9deba50 /toplevel | |
| parent | 2e6ba9cc33060e6db5728ba53d08cc2f95771c6c (diff) | |
Suppression d'un résidu de la syntaxe v7 (Print Grammar avec univ)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9677 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/metasyntax.ml | 2 | ||||
| -rw-r--r-- | toplevel/metasyntax.mli | 2 | ||||
| -rw-r--r-- | toplevel/vernacentries.ml | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/toplevel/metasyntax.ml b/toplevel/metasyntax.ml index eaa750ab3d..8876ce2119 100644 --- a/toplevel/metasyntax.ml +++ b/toplevel/metasyntax.ml @@ -97,7 +97,7 @@ let add_tactic_notation (n,prods,e) = (**********************************************************************) (* Printing grammar entries *) -let print_grammar univ = function +let print_grammar = function | "constr" | "operconstr" | "binder_constr" -> msgnl (str "Entry constr is"); Gram.Entry.print Pcoq.Constr.constr; diff --git a/toplevel/metasyntax.mli b/toplevel/metasyntax.mli index 981f2437c8..1f6b914726 100644 --- a/toplevel/metasyntax.mli +++ b/toplevel/metasyntax.mli @@ -51,7 +51,7 @@ val add_syntax_extension : (* Print the Camlp4 state of a grammar *) -val print_grammar : string -> string -> unit +val print_grammar : string -> unit (* Removes quotes in a notation *) diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index 9d8bbcc007..48829288fb 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -910,7 +910,7 @@ let vernac_print = function | PrintFullContext -> msg (print_full_context_typ ()) | PrintSectionContext qid -> msg (print_sec_context_typ qid) | PrintInspect n -> msg (inspect n) - | PrintGrammar (uni,ent) -> Metasyntax.print_grammar uni ent + | PrintGrammar ent -> Metasyntax.print_grammar ent | PrintLoadPath -> (* For compatibility ? *) print_loadpath () | PrintModules -> msg (print_modules ()) | PrintModule qid -> print_module qid |