diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-06-24 14:18:50 +0200 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-06-24 14:20:33 +0200 |
commit | 59f2255105922f019be0905d188e638d49053e10 (patch) | |
tree | dd0b6c7c905efe1856f6066a73e9ec6819169f6a /interp | |
parent | 31eead537632931d44d31f55905a277d7e5b1624 (diff) |
Fixing #4854 (regression introduced in 4d25b224 in relation with #4592).
Diffstat (limited to 'interp')
-rw-r--r-- | interp/notation_ops.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/interp/notation_ops.ml b/interp/notation_ops.ml index b4cf6e943..3efd50b17 100644 --- a/interp/notation_ops.ml +++ b/interp/notation_ops.ml @@ -750,6 +750,7 @@ let rec match_ inner u alp metas sigma a1 a2 = (* Matching notation variable *) | r1, NVar id2 when is_term_meta id2 metas -> bind_term_env alp sigma id2 r1 + | GVar (_,id1), NVar id2 when is_onlybinding_meta id2 metas -> snd (bind_binding_env alp sigma id2 (Name id1)) (* Matching recursive notations for terms *) | r1, NList (x,_,iter,termin,lassoc) -> |