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 fc93f455a..ac45bfe8d 100644 --- a/interp/genarg.ml +++ b/interp/genarg.ml @@ -79,6 +79,7 @@ type intro_pattern_expr = | IntroWildcard | IntroIdentifier of identifier | IntroAnonymous + | IntroRewrite of bool | IntroFresh of identifier and case_intro_pattern_expr = intro_pattern_expr list list @@ -87,6 +88,8 @@ let rec pr_intro_pattern = function | IntroWildcard -> str "_" | IntroIdentifier id -> pr_id id | IntroAnonymous -> str "?" + | IntroRewrite true -> str "->" + | IntroRewrite false -> str "<-" | IntroFresh id -> str "?" ++ pr_id id and pr_case_intro_pattern = function diff --git a/interp/genarg.mli b/interp/genarg.mli index 0df4e66a0..977308218 100644 --- a/interp/genarg.mli +++ b/interp/genarg.mli @@ -36,6 +36,7 @@ type intro_pattern_expr = | IntroWildcard | IntroIdentifier of identifier | IntroAnonymous + | IntroRewrite of bool | IntroFresh of identifier and case_intro_pattern_expr = intro_pattern_expr list list |