diff options
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/genarg.ml | 3 | ||||
| -rw-r--r-- | interp/genarg.mli | 1 |
2 files changed, 4 insertions, 0 deletions
diff --git a/interp/genarg.ml b/interp/genarg.ml index 35107c8080..8724b0bfd6 100644 --- a/interp/genarg.ml +++ b/interp/genarg.ml @@ -82,6 +82,7 @@ type intro_pattern_expr = | IntroRewrite of bool | IntroIdentifier of identifier | IntroFresh of identifier + | IntroForthcoming of bool | IntroAnonymous and or_and_intro_pattern_expr = (loc * intro_pattern_expr) list list @@ -92,6 +93,8 @@ let rec pr_intro_pattern (_,pat) = match pat with | IntroRewrite false -> str "<-" | IntroIdentifier id -> pr_id id | IntroFresh id -> str "?" ++ pr_id id + | IntroForthcoming true -> str "*" + | IntroForthcoming false -> str "**" | IntroAnonymous -> str "?" and pr_or_and_intro_pattern = function diff --git a/interp/genarg.mli b/interp/genarg.mli index 92c7db36f4..9072456c3e 100644 --- a/interp/genarg.mli +++ b/interp/genarg.mli @@ -39,6 +39,7 @@ type intro_pattern_expr = | IntroRewrite of bool | IntroIdentifier of identifier | IntroFresh of identifier + | IntroForthcoming of bool | IntroAnonymous and or_and_intro_pattern_expr = (loc * intro_pattern_expr) list list |