diff options
| author | SimonBoulier | 2020-01-28 15:08:48 +0100 |
|---|---|---|
| committer | SimonBoulier | 2020-02-04 16:07:21 +0100 |
| commit | 20cfd67c4965454cfc7070887eb85c2a2ff11ca2 (patch) | |
| tree | ea3fe7a04e8c1c0f0d5a19fbc78e413bbdc28a84 /interp/constrintern.ml | |
| parent | 0423c1a948adf7cc66cd98cf49d8253632a38269 (diff) | |
Correct bug in non max local implicit arguments
+ tests in the test-suite for non max local implicit arguments
Diffstat (limited to 'interp/constrintern.ml')
| -rw-r--r-- | interp/constrintern.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml index ab20f1b3ef..b1e12bd66e 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -335,8 +335,8 @@ let build_impls ?loc n bk na acc = if exists_name na acc then begin warn_shadowed_implicit_name ?loc na; Anonymous end else na in let impl = match na with - | Name id -> Some (ExplByName id,Manual,(true,true)) - | Anonymous -> Some (ExplByPos (n,None),Manual,(true,true)) in + | Name id -> Some (ExplByName id,Manual,(max,true)) + | Anonymous -> Some (ExplByPos (n,None),Manual,(max,true)) in impl in match bk with |