tweak $ printing & clean up caml_array runtime

Author: bobzhang

jscomp/core/bs_cmi_load.ml

@@ -23,7 +23,7 @@
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
 
 #if BS_RELEASE_BUILD 
-  (*true *)
+(*true *)
 
 
 let load_cmi ~unit_name : Env.Persistent_signature.t option =
@@ -37,15 +37,15 @@ let load_cmi ~unit_name : Env.Persistent_signature.t option =
         if Js_config.get_diagnose () then
           Format.fprintf Format.err_formatter ">Cmi: %s@." unit_name;
         let cmi : Cmi_format.cmi_infos = 
-            Ext_marshal.from_string_uncheck
+          Ext_marshal.from_string_uncheck
             Builtin_cmi_datasets.module_data.(cmi)  in   
         if Js_config.get_diagnose () then
           Format.fprintf Format.err_formatter "<Cmi: %s@." unit_name;
         Some {filename = Sys.executable_name ; 
               cmi }
       | None -> None
 
- let check () = ()
+let check () = ()
 (*  
   Ext_array.iter 
     Builtin_cmi_datasets.module_sets_cmi

jscomp/core/js_cmj_load.ml

@@ -49,16 +49,16 @@ let load_unit_with_file unit_name : Js_cmj_format.cmj_load_info =
   | Some f
     -> 
     {package_path = 
-      (** hacking relying on the convention of pkg/lib/ocaml/xx.cmj*)
-      Filename.dirname (Filename.dirname (Filename.dirname f)); 
-      cmj_table =  Js_cmj_format.from_file f}
+       (** hacking relying on the convention of pkg/lib/ocaml/xx.cmj*)
+       Filename.dirname (Filename.dirname (Filename.dirname f)); 
+     cmj_table =  Js_cmj_format.from_file f}
   | None -> 
     if !Js_config.no_stdlib then Bs_exception.error (Cmj_not_found unit_name)
     else 
 #if BS_RELEASE_BUILD
-  Js_cmj_load_builtin_unit.load_builin_unit unit_name 
+        Js_cmj_load_builtin_unit.load_builin_unit unit_name 
 #else
-  Bs_exception.error (Cmj_not_found unit_name)
+        Bs_exception.error (Cmj_not_found unit_name)
 #end