Browse Source

fix : don't compile ?

Nicolas Cannasse 13 years ago
parent
commit
4cc64f0235
1 changed files with 1 additions and 1 deletions
  1. 1 1
      codegen.ml

+ 1 - 1
codegen.ml

@@ -571,7 +571,7 @@ let remove_generic_base ctx t = match t with
 				let (_,_,pnew) = get_meta ":?genericT" c.cl_meta in
 				let (_,_,pnew) = get_meta ":?genericT" c.cl_meta in
 				display_error ctx ("Class " ^ (s_type_path c.cl_path) ^ " was used recursively and cannot use its type parameter") prec;
 				display_error ctx ("Class " ^ (s_type_path c.cl_path) ^ " was used recursively and cannot use its type parameter") prec;
 				error "Type parameter usage was here" pnew
 				error "Type parameter usage was here" pnew
-			with Not_found _ ->
+			with Not_found ->
 				());
 				());
 		with Not_found ->
 		with Not_found ->
 			c.cl_extern <- true);
 			c.cl_extern <- true);