diff options
| author | Emilio Jesus Gallego Arias | 2018-04-09 16:08:48 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2018-04-09 16:08:48 +0200 |
| commit | 834530272b9006e28a4b7ba35b1f8f861f51e7ce (patch) | |
| tree | e485fd87323492daf135d7eecbb330a9e03fc0bb /interp/constrextern.ml | |
| parent | f9ef634e94c667641a9da12fa2b9f8e585d6d5c6 (diff) | |
| parent | 8ad6bf357284f3fcfd94f08561450bb5bf38ad36 (diff) | |
Merge PR #7116: Fixes #7110: missing test on the absence of a "as" while looking for a notation for a nested pattern
Diffstat (limited to 'interp/constrextern.ml')
| -rw-r--r-- | interp/constrextern.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/interp/constrextern.ml b/interp/constrextern.ml index bb5fd5294f..7792eff664 100644 --- a/interp/constrextern.ml +++ b/interp/constrextern.ml @@ -478,7 +478,8 @@ and extern_notation_pattern (tmp_scope,scopes as allscopes) vars t = function if is_inactive_rule keyrule then raise No_match; let loc = t.loc in match DAst.get t with - | PatCstr (cstr,_,na) -> + | PatCstr (cstr,args,na) -> + let t = if na = Anonymous then t else DAst.make ?loc (PatCstr (cstr,args,Anonymous)) in let p = apply_notation_to_pattern ?loc (ConstructRef cstr) (match_notation_constr_cases_pattern t pat) allscopes vars keyrule in insert_pat_alias ?loc p na |