fix invalid change to prevent recursive anonymous

doc/CHANGES.txt

@@ -3,6 +3,7 @@
 	fixed inline return bug
 	added haxe.rtti.Generic behavior
 	added haxe.FastList
+	bugfix to prevent recursive anonymous
 	TODO haxe/f9 : inline code can give bad file in debug infos
 	TODO haxe/f9 var x = if( true ) Math.POSITIVE_INFINITY : 0.; VerifyError
 

type.ml

@@ -306,16 +306,7 @@ let rec link e a b =
 			with
 				Exit -> true
 	in
-	let rec mono_loop t =
-		if t == a then
-			true
-		else match t with
-		| TMono t -> (match !t with None -> false | Some t -> loop t)
-		| _ -> false
-	in
-	if mono_loop b then
-		true
-	else if loop b then
+	if loop b then
 		false
 	else
 		match b with