瀏覽代碼

Remove unused var

Dan Korostelev 11 年之前
父節點
當前提交
9e7dbee903
共有 1 個文件被更改,包括 0 次插入2 次删除
  1. 0 2
      gencs.ml

+ 0 - 2
gencs.ml

@@ -2648,8 +2648,6 @@ let configure gen =
 	CSharpSpecificSynf.configure gen (CSharpSpecificSynf.traverse gen runtime_cl);
 	CSharpSpecificESynf.configure gen (CSharpSpecificESynf.traverse gen runtime_cl);
 
-	let mkdir dir = if not (Sys.file_exists dir) then Unix.mkdir dir 0o755 in
-
 	(* copy resource files *)
 	if Hashtbl.length gen.gcon.resources > 0 then begin
 		let src =