snapshot

Author: bobzhang

lib/4.06.1/unstable/all_ounit_tests.ml

@@ -9441,7 +9441,7 @@ val force_cmj : bool ref
 
 val jsx_version : int ref
 val refmt : string option ref
-val is_reason : bool ref 
+
 
 val js_stdout : bool ref 
 
@@ -9552,7 +9552,6 @@ let jsx_version = ref (-1)
 
 let refmt = ref None
 
-let is_reason = ref false
 
 let js_stdout = ref true
 

lib/4.06.1/unstable/bspack.ml

@@ -11281,7 +11281,7 @@ val force_cmj : bool ref
 
 val jsx_version : int ref
 val refmt : string option ref
-val is_reason : bool ref 
+
 
 val js_stdout : bool ref 
 
@@ -11392,7 +11392,6 @@ let jsx_version = ref (-1)
 
 let refmt = ref None
 
-let is_reason = ref false
 
 let js_stdout = ref true
 

lib/4.06.1/unstable/js_compiler.ml

@@ -17821,7 +17821,7 @@ val force_cmj : bool ref
 
 val jsx_version : int ref
 val refmt : string option ref
-val is_reason : bool ref 
+
 
 val js_stdout : bool ref 
 
@@ -17932,7 +17932,6 @@ let jsx_version = ref (-1)
 
 let refmt = ref None
 
-let is_reason = ref false
 
 let js_stdout = ref true
 

lib/4.06.1/unstable/js_refmt_compiler.ml

@@ -17821,7 +17821,7 @@ val force_cmj : bool ref
 
 val jsx_version : int ref
 val refmt : string option ref
-val is_reason : bool ref 
+
 
 val js_stdout : bool ref 
 
@@ -17932,7 +17932,6 @@ let jsx_version = ref (-1)
 
 let refmt = ref None
 
-let is_reason = ref false
 
 let js_stdout = ref true
 

lib/4.06.1/unstable/native_ppx.ml

@@ -23225,7 +23225,7 @@ val force_cmj : bool ref
 
 val jsx_version : int ref
 val refmt : string option ref
-val is_reason : bool ref 
+
 
 val js_stdout : bool ref 
 
@@ -23336,7 +23336,6 @@ let jsx_version = ref (-1)
 
 let refmt = ref None
 
-let is_reason = ref false
 
 let js_stdout = ref true
 

lib/4.06.1/whole_compiler.ml

@@ -297194,7 +297194,7 @@ val force_cmj : bool ref
 
 val jsx_version : int ref
 val refmt : string option ref
-val is_reason : bool ref 
+
 
 val js_stdout : bool ref 
 
@@ -297305,7 +297305,6 @@ let jsx_version = ref (-1)
 
 let refmt = ref None
 
-let is_reason = ref false
 
 let js_stdout = ref true
 
@@ -415835,10 +415834,11 @@ let after_parsing_sig ppf  outputprefix ast  =
   end;
   if !Js_config.binary_ast then
     begin 
+      let sourcefile = !Location.input_name in   
       Binary_ast.write_ast
         Mli
-        ~sourcefile:!Location.input_name
-        ~output:(outputprefix ^ if !Js_config.is_reason  then Literals.suffix_reiast else Literals.suffix_mliast)
+        ~sourcefile
+        ~output:(outputprefix ^ Filename.extension sourcefile ^ "ast")
         (* to support relocate to another directory *)
         ast 
 
@@ -415942,10 +415942,9 @@ let after_parsing_impl ppf  outputprefix (ast : Parsetree.structure) =
     close_out oc ;
   end;
   if !Js_config.binary_ast then
-    Binary_ast.write_ast ~sourcefile:!Location.input_name 
-      Ml ~output:(outputprefix ^ 
-        if !Js_config.is_reason then  Literals.suffix_reast else Literals.suffix_mlast
-        )
+    let sourcefile = !Location.input_name in 
+    Binary_ast.write_ast ~sourcefile
+      Ml ~output:(outputprefix ^ Filename.extension sourcefile ^ "ast")
       ast ;
   if !Js_config.syntax_only then 
     Warnings.check_fatal ()
@@ -418960,7 +418959,6 @@ let process_implementation_file ppf name =
 
 
 let setup_reason_context () = 
-  Js_config.is_reason := true;
   Lazy.force Super_main.setup;  
   Lazy.force Reason_outcome_printer_main.setup