diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-09-06 14:24:06 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-09-06 14:24:06 +0000 |
| commit | 394d2954c31047ca87b0575a1eaff019b247b3d8 (patch) | |
| tree | bbaea30846b37e5f35c2b3629268fff35a09d06d /interp/constrintern.ml | |
| parent | 7d4a0bdbd18aba40a170bfd3eeb43c7f8ff12ecf (diff) | |
cosmetique
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4318 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp/constrintern.ml')
| -rw-r--r-- | interp/constrintern.ml | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml index a1e9ae310..065e3c3ca 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 -> |