Fix a bug in printing of negative variables.

43c6695c · Kim Nguyễn · 7b6cc70d · 43c6695c
Commit 43c6695c authored Jul 11, 2014 by Kim Nguyễn
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 0 deletions

types/types.ml types/types.ml +1 -0

No files found.
--- a/types/types.ml
+++ b/types/types.ml
@@ -1954,6 +1954,7 @@ struct
                  | [],l,[] ->  [ intersection (l @ rem) ]
                  | l1,l2,[] -> [ intersection ((union l1) :: (l2 @ rem)) ]
                  | [],[],l2 -> [ intersection ([ Neg (alloc [union l2]) ] @ rem)]
+                  | l1,[],l2 -> [ intersection ((union l1) :: [ Neg (alloc [union l2]) ] @ rem) ]
                  | l1,l2, l3 -> [ intersection ([ union l1; intersection [ intersection l2; Neg(alloc l3)]] @ rem) ]
              in
              if subtype any tt then print_topvars [] else