Nicolas Cannasse 19 年之前
父节点
当前提交
c8263f3a2c
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      genneko.ml

+ 1 - 1
genneko.ml

@@ -624,7 +624,7 @@ let generate file types hres =
 	) , { psource = "<header>"; pline = 1; } in
 	) , { psource = "<header>"; pline = 1; } in
 	let packs = List.concat (List.map (gen_package h) types) in
 	let packs = List.concat (List.map (gen_package h) types) in
 	let names = List.fold_left gen_name [] types in
 	let names = List.fold_left gen_name [] types in
-	let methods = List.fold_left (fun acc t -> gen_type ctx t acc) [] types in
+	let methods = List.rev (List.fold_left (fun acc t -> gen_type ctx t acc) [] types) in
 	let boot = gen_boot hres in
 	let boot = gen_boot hres in
 	let inits = List.map (gen_expr ctx) (List.rev ctx.inits) in
 	let inits = List.map (gen_expr ctx) (List.rev ctx.inits) in
 	let vars = List.concat (List.map (gen_static_vars ctx) types) in
 	let vars = List.concat (List.map (gen_static_vars ctx) types) in