diff options
Diffstat (limited to 'interp/constrintern.ml')
| -rw-r--r-- | interp/constrintern.ml | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml index e7db4afe4e..9ab3ddf42f 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -335,7 +335,11 @@ let check_capture loc ty = function () let locate_if_isevar loc na = function - | RHole _ -> RHole (loc, AbstractionType na) + | RHole _ -> + (try match na with + | Name id -> Reserve.find_reserved_type id + | Anonymous -> raise Not_found + with Not_found -> RHole (loc, BinderType na)) | x -> x (**********************************************************************) |