remove Js_config.is_reason which is not needed

Author: bobzhang

jscomp/common/js_config.ml

@@ -95,7 +95,6 @@ let jsx_version = ref (-1)
 
 let refmt = ref None
 
-let is_reason = ref false
 
 let js_stdout = ref true
 

jscomp/common/js_config.mli

@@ -90,7 +90,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 
 

jscomp/core/js_implementation.ml

@@ -58,10 +58,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 
 
@@ -165,10 +166,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 ()

jscomp/main/js_main.ml

@@ -22,7 +22,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