Fix bug in type checker

2019-06-20 16:01:46 +02:00
parent 592869bf75
commit d38367e023
3 changed files with 18 additions and 1 deletions
@@ -1814,6 +1814,10 @@ occurs_check1(R, {tuple_t, _, Ts}) ->
    occurs_check(R, Ts);
 occurs_check1(R, {named_arg_t, _, _, T, _}) ->
    occurs_check(R, T);
+occurs_check1(R, {record_t, Fields}) ->
+    occurs_check(R, Fields);
+occurs_check1(R, {field_t, _, _, T}) ->
+    occurs_check(R, T);
 occurs_check1(R, [H | T]) ->
    occurs_check(R, H) orelse occurs_check(R, T);
 occurs_check1(_, []) -> false.