瀏覽代碼

I'm so sorry [skip ci]

Aleksandr Kuzmenko 6 年之前
父節點
當前提交
869ce8eccb
共有 1 個文件被更改,包括 3 次插入3 次删除
  1. 3 3
      src/core/type.ml

+ 3 - 3
src/core/type.ml

@@ -1724,13 +1724,13 @@ let rec link e a b =
 		true
 	end
 
-let would_produce_recursive_anon field_accepetor field_donor =
+let would_produce_recursive_anon field_acceptor field_donor =
 	try
-		(match !(field_accepetor.a_status) with
+		(match !(field_acceptor.a_status) with
 		| Opened ->
 			PMap.iter (fun n field ->
 				match follow field.cf_type with
-				| TAnon a when field_accepetor == a -> raise Exit
+				| TAnon a when field_acceptor == a -> raise Exit
 				| _ -> ()
 			) field_donor.a_fields;
 		| _ -> ());