浏览代码

fixed issue #320

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

+ 1 - 1
codegen.ml

@@ -219,7 +219,7 @@ let rec build_generic ctx c p tl =
 		cg.cl_interface <- c.cl_interface;
 		cg.cl_constructor <- (match c.cl_constructor with None -> None | Some c -> Some (build_field c));
 		cg.cl_implements <- List.map (fun (i,tl) ->
-			(match build_type (TInst (i, List.map build_type tl)) with
+			(match follow (build_type (TInst (i, List.map build_type tl))) with
 			| TInst (i,tl) -> i, tl
 			| _ -> assert false)
 		) c.cl_implements;