diff options
| -rw-r--r-- | parsing/g_vernacnew.ml4 | 1 | ||||
| -rw-r--r-- | translate/ppvernacnew.ml | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/parsing/g_vernacnew.ml4 b/parsing/g_vernacnew.ml4 index 4ea336853..616cdfd75 100644 --- a/parsing/g_vernacnew.ml4 +++ b/parsing/g_vernacnew.ml4 @@ -746,6 +746,7 @@ GEXTEND Gram non_terminal: [[ u = IDENT; ":"; nt = IDENT -> NtQual(rename_command_entry u, rename_command_entry nt) + | IDENT "constr" -> NtQual ("constr","constr") | nt = IDENT -> NtShort (rename_command_entry nt) ]] ; END diff --git a/translate/ppvernacnew.ml b/translate/ppvernacnew.ml index fd16ef5ad..87f4a7b5f 100644 --- a/translate/ppvernacnew.ml +++ b/translate/ppvernacnew.ml @@ -127,6 +127,7 @@ let pr_set_entry_type = function let pr_non_terminal = function | NtQual (u,nt) -> str u ++ str" : " ++ str nt + | NtShort "constrarg" -> str "constr" | NtShort nt -> str nt let strip_meta id = |