浏览代码

remove duplicate function

[ci skip]
Dan Korostelev 11 年之前
父节点
当前提交
a8062bd98a
共有 1 个文件被更改,包括 0 次插入5 次删除
  1. 0 5
      gencommon.ml

+ 0 - 5
gencommon.ml

@@ -1206,11 +1206,6 @@ let t_to_mt t =
 		| TAbstract(a, _) -> TAbstractDecl a
 		| _ -> assert false
 
-let mk_paren e =
-	match e.eexpr with
-		| TParenthesis _ -> e
-		| _ -> { e with eexpr = TParenthesis(e) }
-
 let rec get_last_ctor cl =
 	Option.map_default (fun (super,_) -> if is_some super.cl_constructor then Some(get super.cl_constructor) else get_last_ctor super) None cl.cl_super