Nicolas Cannasse 14 年之前
父節點
當前提交
70df11433a
共有 1 個文件被更改,包括 1 次插入1 次删除
  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