diff options
| author | herbelin | 2003-09-06 14:24:06 +0000 |
|---|---|---|
| committer | herbelin | 2003-09-06 14:24:06 +0000 |
| commit | 394d2954c31047ca87b0575a1eaff019b247b3d8 (patch) | |
| tree | bbaea30846b37e5f35c2b3629268fff35a09d06d | |
| parent | 7d4a0bdbd18aba40a170bfd3eeb43c7f8ff12ecf (diff) | |
cosmetique
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4318 85f007b7-540e-0410-9357-904b9bb8a0f7
| -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 |