Browse Source

fixed issue #320

Nicolas Cannasse 14 years ago
parent
commit
2c538e4ae0
1 changed files with 1 additions and 1 deletions
  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;