Nicolas Cannasse пре 20 година
родитељ
комит
67bc345a19
1 измењених фајлова са 2 додато и 1 уклоњено
  1. 2 1
      genneko.ml

+ 2 - 1
genneko.ml

@@ -351,7 +351,8 @@ let generate file types =
 	let neko_file = Filename.chop_extension file ^ ".neko" in
 	let ch = IO.output_channel (open_out neko_file) in
 	Nxml.write ch (Nxml.to_xml e);
-	IO.close_out ch
+	IO.close_out ch;
+	if Sys.command ("nekovm neko " ^ neko_file) = 0 && not (!Plugin.verbose) then Sys.remove neko_file
 
 ;;
 Nast.do_escape := false