more work

Author: zth

jscomp/core/js_embeds.ml

@@ -24,7 +24,7 @@ let write_embeds ~extension_points ~output ast =
   let iterator = {Ast_iterator.default_iterator with extension} in
   iterator.structure iterator ast;
   match !content with
-  | [] -> ()
+  | [] -> false
   | content ->
     let text =
       content
@@ -36,4 +36,5 @@ let write_embeds ~extension_points ~output ast =
     in
     let oc = open_out_bin output in
     output_string oc text;
-    close_out oc
+    close_out oc;
+    true

jscomp/core/js_implementation.ml

@@ -127,13 +127,17 @@ let no_export (rest : Parsetree.structure) : Parsetree.structure =
         ]
   | _ -> rest
 
-let write_embeds outputprefix (ast : Parsetree.structure) =
-  if !Clflags.only_parse = false && !Js_config.binary_ast then (
-    match !Js_config.embeds with
-    | [] -> ()
-    | embeds -> Js_embeds.write_embeds ~extension_points:embeds 
-      ~output:(outputprefix ^ Literals.suffix_embeds) 
-      ast);
+  let write_embeds outputprefix (ast : Parsetree.structure) =
+    (if !Clflags.only_parse = false && !Js_config.binary_ast then
+       let wrote_embeds =
+         match !Js_config.embeds with
+         | [] -> false
+         | embeds ->
+           Js_embeds.write_embeds ~extension_points:embeds
+             ~output:(outputprefix ^ Literals.suffix_embeds)
+             ast
+       in
+       if wrote_embeds then print_endline "1" else print_endline "0");
     ast
 
 let after_parsing_impl ppf outputprefix (ast : Parsetree.structure) =