diff options
Diffstat (limited to 'interp/constrexpr_ops.ml')
| -rw-r--r-- | interp/constrexpr_ops.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/interp/constrexpr_ops.ml b/interp/constrexpr_ops.ml index 01efef940..6056c9b9d 100644 --- a/interp/constrexpr_ops.ml +++ b/interp/constrexpr_ops.ml @@ -242,7 +242,7 @@ let constr_loc = function | CCases (loc,_,_,_,_) -> loc | CLetTuple (loc,_,_,_,_) -> loc | CIf (loc,_,_,_,_) -> loc - | CHole (loc, _, _) -> loc + | CHole (loc,_,_,_) -> loc | CPatVar (loc,_) -> loc | CEvar (loc,_,_) -> loc | CSort (loc,_) -> loc @@ -339,7 +339,7 @@ let coerce_to_id = function let coerce_to_name = function | CRef (Ident (loc,id),_) -> (loc,Name id) - | CHole (loc,_,_) -> (loc,Anonymous) + | CHole (loc,_,_,_) -> (loc,Anonymous) | a -> Errors.user_err_loc (constr_loc a,"coerce_to_name", str "This expression should be a name.") |