diff options
| -rw-r--r-- | interp/constrintern.ml | 4 | ||||
| -rw-r--r-- | interp/constrintern.mli | 2 |
2 files changed, 2 insertions, 4 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml index a1e9ae3109..065e3c3ca2 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -532,9 +532,7 @@ let internalise sigma env allow_soapp lvar c = let args = intern_impargs c env impargs args_scopes args in check_projection isproj (List.length args) c; (match c with - | RApp (loc', f', args') -> - (* May happen with the ``...`` and `...` grammars *) - RApp (join_loc loc' loc, f',args'@args) + | RApp (loc', f', args') -> RApp (join_loc loc' loc, f',args'@args) | _ -> RApp (loc, c, args)) | CCases (loc, (po,rtnpo), tms, eqns) -> let rtnids = List.fold_right (fun (_,(na,x)) ids -> diff --git a/interp/constrintern.mli b/interp/constrintern.mli index 4f0c803bdc..809e80e3e3 100644 --- a/interp/constrintern.mli +++ b/interp/constrintern.mli @@ -50,7 +50,7 @@ val interp_rawconstr_gen : bool -> evar_map -> env -> implicits_env -> val interp_constr : evar_map -> env -> constr_expr -> constr val interp_casted_constr : evar_map -> env -> constr_expr -> types -> constr val interp_type : evar_map -> env -> constr_expr -> types -val interp_binder : evar_map -> env -> name -> constr_expr -> types +val interp_binder : evar_map -> env -> name -> constr_expr -> types val interp_openconstr : evar_map -> env -> constr_expr -> evar_map * constr val interp_casted_openconstr : evar_map -> env -> constr_expr -> constr -> evar_map * constr |