|
@@ -1195,7 +1195,7 @@ let generate com =
|
|
print ctx "})()";
|
|
print ctx "})()";
|
|
newline ctx;
|
|
newline ctx;
|
|
end;
|
|
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
|
|
let ch = open_out_bin com.file in
|
|
output_string ch (Buffer.contents ctx.buf);
|
|
output_string ch (Buffer.contents ctx.buf);
|
|
close_out ch);
|
|
close_out ch);
|