diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2017-07-26 15:17:04 +0200 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2017-07-26 15:17:04 +0200 |
| commit | 9837b4c2b6bf7223c2cc367f2b4c6335684d5124 (patch) | |
| tree | c3b3f665bcdd7e96727189aae1463f5ad7fd8dba /interp | |
| parent | 16c32cf04d0c220445f4a0e26c3230937a36f428 (diff) | |
| parent | 4af1609cd70cca670109dfd6dfa06ed02034f7ae (diff) | |
Merge PR #894: Fixing a little location bug with recursive binders
Diffstat (limited to 'interp')
| -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 f360fb192..c9fc3aa4f 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -664,11 +664,11 @@ let instantiate_notation_constr loc intern ntnvars subst infos c = | NProd (Name id, NHole _, c') when option_mem_assoc id binderopt -> let a,letins = snd (Option.get binderopt) in let e = make_letins letins (aux subst' infos c') in - let (loc,(na,bk,t)) = a in + let (_loc,(na,bk,t)) = a in CAst.make ?loc @@ GProd (na,bk,t,e) | NLambda (Name id,NHole _,c') when option_mem_assoc id binderopt -> let a,letins = snd (Option.get binderopt) in - let (loc,(na,bk,t)) = a in + let (_loc,(na,bk,t)) = a in CAst.make ?loc @@ GLambda (na,bk,t,make_letins letins (aux subst' infos c')) (* Two special cases to keep binder name synchronous with BinderType *) | NProd (na,NHole(Evar_kinds.BinderType na',naming,arg),c') |