ソースを参照

make sure to remove .map file if we are not compiling with -debug

Nicolas Cannasse 13 年 前
コミット
6186f15eda
1 ファイル変更1 行追加1 行削除
  1. 1 1
      genjs.ml

+ 1 - 1
genjs.ml

@@ -1195,7 +1195,7 @@ let generate com =
 		print ctx "})()";
 		newline ctx;
 	end;
-	if com.debug then write_mappings ctx;
+	if com.debug then write_mappings ctx else try Sys.remove (com.file ^ ".map") with _ -> ();
 	let ch = open_out_bin com.file in
 	output_string ch (Buffer.contents ctx.buf);
 	close_out ch);