remove Console module

Author: jchavarri

jscomp/main/jsoo_common.ml

@@ -4,7 +4,6 @@ module Js = struct
     external inject : 'a -> any = "%identity"
     external get : 'a -> 'b -> 'c = "caml_js_get"
     external set : 'a -> 'b -> 'c -> unit = "caml_js_set"
-    external meth_call : 'a -> string -> any array -> 'b = "caml_js_meth_call"
     external pure_js_expr : string -> 'a = "caml_pure_js_expr"
     let global = pure_js_expr "joo_global_object"
     type obj
@@ -22,32 +21,6 @@ module Js = struct
   external to_bytestring : js_string t -> string = "caml_js_to_byte_string"
 end
 
-module Console = struct
-  type +'a meth
-  class type t =
-    object
-      method log : _ -> unit meth
-
-      method log_2 : _ -> _ -> unit meth
-    end
-
-  external get_console : unit -> t Js.t = "caml_js_get_console"
-  let console = get_console ()
-  let log anything = (
-       fun (type res a2 a1) ->
-       fun (a2 : a2 Js.t)  ->
-       fun (a1 : a1)  ->
-       fun (_ : a2 -> a1 -> res meth)  ->
-         (Js.Unsafe.meth_call a2 "log"
-            [|(Js.Unsafe.inject a1)
-            |] : res)
-     )
-       console
-       anything
-       (fun x  -> x#log)
-
-end
-
 let mk_js_error (loc: Location.t) (msg: string) = 
   let (file,line,startchar) = Location.get_pos_info loc.Location.loc_start in
   let (file,endline,endchar) = Location.get_pos_info loc.Location.loc_end in

jscomp/main/jsoo_common.mli

@@ -29,18 +29,6 @@ module Js :
     external to_bytestring : js_string t -> string = "caml_js_to_byte_string"
   end
 
-module Console :
-  sig
-    type +'a meth
-    class type t =
-      object
-        method log : _ -> unit meth
-        method log_2 : _ -> _ -> unit meth
-      end
-    val console : t Js.t
-    val log: 'a -> unit
-  end
-
 (*
 Creates a Js Error object for given location with and a certain error message
 *)