|
@@ -231,7 +231,7 @@ let build_instances ctx t p =
|
|
loop t
|
|
loop t
|
|
|
|
|
|
|
|
|
|
-let rec build_generic_class ctx c p tl =
|
|
|
|
|
|
+let build_generic_class ctx c p tl =
|
|
let pack = fst c.cl_path in
|
|
let pack = fst c.cl_path in
|
|
let recurse = ref false in
|
|
let recurse = ref false in
|
|
let rec check_recursive t =
|
|
let rec check_recursive t =
|