diff options
-rw-r--r-- | parsing/g_vernac.ml4 | 2 | ||||
-rw-r--r-- | parsing/ppvernac.ml | 3 | ||||
-rw-r--r-- | toplevel/metasyntax.ml | 2 | ||||
-rw-r--r-- | toplevel/metasyntax.mli | 2 | ||||
-rw-r--r-- | toplevel/vernacentries.ml | 2 |
5 files changed, 5 insertions, 6 deletions
diff --git a/parsing/g_vernac.ml4 b/parsing/g_vernac.ml4 index 8174271d9..4c9056f09 100644 --- a/parsing/g_vernac.ml4 +++ b/parsing/g_vernac.ml4 @@ -605,7 +605,7 @@ GEXTEND Gram | IDENT "Section"; s = global -> PrintSectionContext s | IDENT "Grammar"; ent = IDENT -> (* This should be in "syntax" section but is here for factorization*) - PrintGrammar ("", ent) + PrintGrammar ent | IDENT "LoadPath" -> PrintLoadPath | IDENT "Modules" -> PrintModules diff --git a/parsing/ppvernac.ml b/parsing/ppvernac.ml index 1b8123695..7d4104db3 100644 --- a/parsing/ppvernac.ml +++ b/parsing/ppvernac.ml @@ -788,8 +788,7 @@ let rec pr_vernac = function | PrintFullContext -> str"Print All" | PrintSectionContext s -> str"Print Section" ++ spc() ++ Libnames.pr_reference s - | PrintGrammar (uni,ent) -> - msgerrnl (str "warning: no direct translation of Print Grammar entry"); + | PrintGrammar ent -> str"Print Grammar" ++ spc() ++ str ent | PrintLoadPath -> str"Print LoadPath" | PrintModules -> str"Print Modules" diff --git a/toplevel/metasyntax.ml b/toplevel/metasyntax.ml index eaa750ab3..8876ce211 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 981f2437c..1f6b91472 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 9d8bbcc00..48829288f 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 |