diff options
| author | herbelin | 2003-05-14 01:20:19 +0000 |
|---|---|---|
| committer | herbelin | 2003-05-14 01:20:19 +0000 |
| commit | 08090c64a3322ca17e6af733831b66d9ffd0756c (patch) | |
| tree | 0330587e045bc41648be59c3d2c8413f15711ab5 | |
| parent | 042ff01d2ca04c0ca29106ef9ac894f7e57c35b1 (diff) | |
Hack pour ameliorer l'affichage des applications dans les `...` et
``...`` en les mettant sous forme n-aire, et sans casser la compatibilite
des implicites
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4018 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | interp/constrintern.ml | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml index 1032b0116d..13864febcb 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -454,7 +454,12 @@ let internalise isarity sigma env allow_soapp lvar c = | CRef ref -> intern_reference env lvar ref | _ -> (intern false env f, [], []) in - RApp (loc, c, intern_impargs c env impargs args_scopes args) + let args = intern_impargs c env impargs args_scopes args in + (match c with + | RApp (loc', f', args') -> + (* May happen with the ``...`` and `...` grammars *) + RApp (join_loc loc' loc, f',args'@args) + | _ -> RApp (loc, c, args)) | CCases (loc, po, tms, eqns) -> RCases (loc, option_app (intern true env) po, List.map (intern false env) tms, |