diff options
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/genarg.ml | 4 | ||||
| -rw-r--r-- | interp/genarg.mli | 1 |
2 files changed, 4 insertions, 1 deletions
diff --git a/interp/genarg.ml b/interp/genarg.ml index 2646a4c825..385171fe35 100644 --- a/interp/genarg.ml +++ b/interp/genarg.ml @@ -69,15 +69,17 @@ type intro_pattern_expr = | IntroOrAndPattern of case_intro_pattern_expr | IntroWildcard | IntroIdentifier of identifier + | IntroAnonymous and case_intro_pattern_expr = intro_pattern_expr list list let rec pr_intro_pattern = function | IntroOrAndPattern pll -> pr_case_intro_pattern pll | IntroWildcard -> str "_" | IntroIdentifier id -> pr_id id + | IntroAnonymous -> str "?" and pr_case_intro_pattern = function - | [_::_ as pl] -> + | [pl] -> str "(" ++ hv 0 (prlist_with_sep pr_coma pr_intro_pattern pl) ++ str ")" | pll -> str "[" ++ diff --git a/interp/genarg.mli b/interp/genarg.mli index d61245475c..858457e3f7 100644 --- a/interp/genarg.mli +++ b/interp/genarg.mli @@ -32,6 +32,7 @@ type intro_pattern_expr = | IntroOrAndPattern of case_intro_pattern_expr | IntroWildcard | IntroIdentifier of identifier + | IntroAnonymous and case_intro_pattern_expr = intro_pattern_expr list list val pr_intro_pattern : intro_pattern_expr -> Pp.std_ppcmds |