diff options
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/miscprint.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/printing/miscprint.ml b/printing/miscprint.ml index 682cc3abe7..b47deab0fa 100644 --- a/printing/miscprint.ml +++ b/printing/miscprint.ml @@ -18,12 +18,12 @@ let rec pr_intro_pattern prc (_,pat) = match pat with | IntroAction p -> pr_intro_pattern_action prc p and pr_intro_pattern_naming = function - | IntroWildcard -> str "_" | IntroIdentifier id -> Nameops.pr_id id | IntroFresh id -> str "?" ++ Nameops.pr_id id | IntroAnonymous -> str "?" and pr_intro_pattern_action prc = function + | IntroWildcard -> str "_" | IntroOrAndPattern pll -> pr_or_and_intro_pattern prc pll | IntroInjection pl -> str "[=" ++ hv 0 (prlist_with_sep spc (pr_intro_pattern prc) pl) ++ |