diff options
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/constrintern.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml index 9ca0a41bd0..aff7193461 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -1260,6 +1260,7 @@ let internalise sigma globalenv env allow_patvar lvar c = [], None in let na = match tm', na with | RVar (_,id), None when Idset.mem id vars -> Name id + | RRef (loc, VarRef id), None -> Name id | _, None -> Anonymous | _, Some na -> na in (tm',(na,typ)), na::ids |