diff options
| author | herbelin | 2004-01-13 15:22:04 +0000 |
|---|---|---|
| committer | herbelin | 2004-01-13 15:22:04 +0000 |
| commit | 0ea28e6a440e39f9f9645aa55afbfa38a0560b27 (patch) | |
| tree | 0c211363f17f8b61de400d1cf65ffd88e33cbaea /translate | |
| parent | 04d270a46e8c481e0b1f21904c6b25f0b7359fa0 (diff) | |
Reflet dans l'arbre de syntaxe de la difference syntaxique entre 'Variables a b:A' et 'Variables (a:A) (b:A)'
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5198 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'translate')
| -rw-r--r-- | translate/ppvernacnew.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/translate/ppvernacnew.ml b/translate/ppvernacnew.ml index 6756e3157f..c60e5d87ca 100644 --- a/translate/ppvernacnew.ml +++ b/translate/ppvernacnew.ml @@ -360,10 +360,10 @@ let pr_params pr_c (xl,(c,t)) = let rec factorize = function | [] -> [] - | (c,(x,t))::l -> + | (c,(idl,t))::l -> match factorize l with - | (xl,t')::l' when t' = (c,t) -> (x::xl,t')::l' - | l' -> ([x],(c,t))::l' + | (xl,t')::l' when t' = (c,t) -> (idl@xl,t')::l' + | l' -> (idl,(c,t))::l' let pr_ne_params_list pr_c l = match factorize l with |