remove unused type

Author: bobzhang

jscomp/ml/lambda.ml

@@ -318,11 +318,6 @@ and lambda_switch =
 
 
 
-type program =
-  { module_ident : Ident.t;
-    main_module_block_size : int;
-    required_globals : Ident.Set.t;
-    code : lambda }
 
 (* This is actually a dummy value 
     not necessary "()", it can be used as a place holder for module 

jscomp/ml/lambda.mli

@@ -321,12 +321,7 @@ and lambda_switch =
     sw_names: switch_names option }
 
 
-type program =
-  { module_ident : Ident.t;
-    main_module_block_size : int;
-    required_globals : Ident.Set.t;    (* Modules whose initializer side effects
-                                          must occur before [code]. *)
-    code : lambda }
+
 (* Lambda code for the middle-end.
    * In the closure case the code is a sequence of assignments to a
      preallocated block of size [main_module_block_size] using

jscomp/ml/printlambda.ml

@@ -464,4 +464,4 @@ let structured_constant = struct_const
 
 let lambda = lam
 
-let program ppf { code } = lambda ppf code
+

jscomp/ml/printlambda.mli

@@ -19,7 +19,7 @@ open Format
 
 val structured_constant: formatter -> structured_constant -> unit
 val lambda: formatter -> lambda -> unit
-val program: formatter -> program -> unit
+
 val primitive: formatter -> primitive -> unit
 val name_of_primitive : primitive -> string
 val value_kind : value_kind -> string