Browse Source

revert (accidental commit)

Simon Krajewski 13 years ago
parent
commit
52e57865c3
1 changed files with 3 additions and 3 deletions
  1. 3 3
      genswf.ml

+ 3 - 3
genswf.ml

@@ -1068,10 +1068,10 @@ let generate com swf_header =
 							| TAbstractDecl a -> false
 							| TAbstractDecl a -> false
 							| TTypeDecl t -> false
 							| TTypeDecl t -> false
 						) in
 						) in
-						if s_type_path (t_path t) = e.f9_classname then match t with
+						if not extern && s_type_path (t_path t) = e.f9_classname then
+							match t with
 							| TClassDecl c ->
 							| TClassDecl c ->
-								if extern && not ((has_meta ":used" c.cl_meta) || (has_meta ":keep" c.cl_meta))
-								|| has_meta ":bind" c.cl_meta then
+								if has_meta ":bind" c.cl_meta then
 									toremove := (t_path t) :: !toremove
 									toremove := (t_path t) :: !toremove
 								else
 								else
 									error ("Class already exists in '" ^ file ^ "', use @:bind to redefine it") (t_infos t).mt_pos
 									error ("Class already exists in '" ^ file ^ "', use @:bind to redefine it") (t_infos t).mt_pos