浏览代码

do not replace interfaces with other interfaces

Simon Krajewski 9 年之前
父节点
当前提交
c74f7be349
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      filters.ml

+ 1 - 1
filters.ml

@@ -1102,7 +1102,7 @@ let check_remove_metadata ctx t = match t with
 
 let do_the_tivo_thing ctx =
 	let rec get_substitute_class c = match c.cl_dependent with
-		| [({cl_params = []} as c2),[]] when c.cl_interface && c.cl_params = [] && not c.cl_extern && not (Meta.has Meta.Keep c.cl_meta) ->
+		| [({cl_params = []} as c2),[]] when c.cl_interface && not c2.cl_interface && c.cl_params = [] && not c.cl_extern && not (Meta.has Meta.Keep c.cl_meta) ->
 			get_substitute_class c2
 		| _ -> c
 	in