aboutsummaryrefslogtreecommitdiff
path: root/parsing/ppconstr.ml
diff options
context:
space:
mode:
authorherbelin2007-09-04 09:05:32 +0000
committerherbelin2007-09-04 09:05:32 +0000
commit0f365a09ce2cb8fc29f7177fe738ec1035d9ef0e (patch)
tree932250558b392d229214e09597619339b9457c19 /parsing/ppconstr.ml
parent6e58d190a40f27b8e2039c4063523f9f3e62215b (diff)
Utilisation d'un nouvel algorithme plus raffiné pour prendre en compte les
alias de variables dans la fonction d'inversion des instance (real_clean): - détection des cas d'inversions distinctes incompatibles - nouvelle heuristique lorsque plusieurs inversions distinctes mais compatibles existent git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10111 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/ppconstr.ml')
-rw-r--r--parsing/ppconstr.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/parsing/ppconstr.ml b/parsing/ppconstr.ml
index 4ce7fbbc6b..1c9eb1e2a2 100644
--- a/parsing/ppconstr.ml
+++ b/parsing/ppconstr.ml
@@ -167,7 +167,7 @@ let pr_evar pr n l =
spc () ++ pr_in_comment
(fun l ->
str"[" ++ hov 0 (prlist_with_sep pr_coma (pr ltop) l) ++ str"]")
- l
+ (List.rev l)
| None -> mt()))
let las = lapp