do not consider empty enums to be extern by default (fixed issue #1333)

std/flash/_std/Xml.hx

@@ -22,7 +22,7 @@
 import flash.xml.XML;
 import flash.xml.XMLList;
 
-enum XmlType {
+extern enum XmlType {
 }
 
 @:coreApi class Xml {

typeload.ml

@@ -1771,7 +1771,7 @@ let init_module_type ctx context_init do_init (decl,p) =
 			names := c.ec_name :: !names;
 		) (!constructs);
 		e.e_names <- List.rev !names;
-		e.e_extern <- e.e_extern || e.e_names = [];
+		e.e_extern <- e.e_extern
 	| ETypedef d ->
 		let t = (match get_type d.d_name with TTypeDecl t -> t | _ -> assert false) in
 		let ctx = { ctx with type_params = t.t_types } in