Fix for commit 9229b1

2015-12-01 01:53:24 +09:00 · 2015-12-01 01:53:24 +09:00 · f7d20f161a
parent f6879077e0
commit f7d20f161a
1 changed files with 4 additions and 0 deletions
--- a/typing/ctype.ml
+++ b/typing/ctype.ml
@ -605,6 +605,10 @@ let rec generalize ty =
    iter_type_expr generalize ty
  end

+let generalize ty =
+  simple_abbrevs := Mnil;
+  generalize ty
+
 (* Generalize the structure and lower the variables *)

 let rec generalize_structure var_level ty =