diff options
| -rw-r--r-- | translate/ppvernacnew.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/translate/ppvernacnew.ml b/translate/ppvernacnew.ml index 42c518e5a9..9162049688 100644 --- a/translate/ppvernacnew.ml +++ b/translate/ppvernacnew.ml @@ -994,7 +994,8 @@ let rec pr_vernac = function | PrintSectionContext s -> str"Print Section" ++ spc() ++ Libnames.pr_reference s | PrintGrammar (uni,ent) -> - str"Print Grammar" ++ spc() ++ str uni ++ spc() ++ str ent + msgerrnl (str "warning: no direct translation of Print Grammar entry"); + str"Print Grammar" ++ spc() ++ str ent | PrintLoadPath -> str"Print LoadPath" | PrintModules -> str"Print Modules" | PrintMLLoadPath -> str"Print ML Path" |