Nicolas Cannasse 15 năm trước cách đây
mục cha
commit
70df11433a
1 tập tin đã thay đổi với 1 bổ sung1 xóa
  1. 1 1
      genswf9.ml

+ 1 - 1
genswf9.ml

@@ -1768,7 +1768,7 @@ let generate_field_kind ctx f c stat =
 			let rec lookup_kind = function
 				| [] -> f.cf_name, MK3Normal
 				| (":getter",[EConst (Ident f | Type f),_]) :: _ -> f, MK3Getter
-				| (":setter",[EConst (Ident f | Type f),_]) :: _ -> f, MK3Getter
+				| (":setter",[EConst (Ident f | Type f),_]) :: _ -> f, MK3Setter
 				| _ :: l -> lookup_kind l
 			in
 			let name, kind = lookup_kind f.cf_meta in