Nicolas Cannasse %!s(int64=15) %!d(string=hai) anos
pai
achega
70df11433a
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  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