clean up

Author: mununki

jscomp/core/js_dump.ml

@@ -766,12 +766,14 @@ and expression_desc cxt ~(level : int) f x : cxt =
       in
       if p.num_nonconst = 1 && not !Js_config.debug then
         pp_comment_option f (Some p.name);
-      let objs = if List.length p.optional_labels <> 0 then
+      let objs = match p.optional_labels with
+      | [] -> objs
+      | _ ->
         Ext_list.array_list_filter_map p.fields el (fun f x ->
           match x.expression_desc with
           | Undefined when List.mem f p.optional_labels -> None
           | _ -> Some (Js_op.Lit f, x))
-      else objs in
+      in
       expression_desc cxt ~level f (Object objs)
   | Caml_block (el, _, tag, Blk_constructor p) ->
       let not_is_cons = p.name <> Literals.cons in

lib/4.06.1/unstable/js_compiler.ml

@@ -81749,12 +81749,14 @@ and expression_desc cxt ~(level : int) f x : cxt =
       in
       if p.num_nonconst = 1 && not !Js_config.debug then
         pp_comment_option f (Some p.name);
-      let objs = if List.length p.optional_labels <> 0 then
+      let objs = match p.optional_labels with
+      | [] -> objs
+      | _ ->
         Ext_list.array_list_filter_map p.fields el (fun f x ->
           match x.expression_desc with
           | Undefined when List.mem f p.optional_labels -> None
           | _ -> Some (Js_op.Lit f, x))
-      else objs in
+      in
       expression_desc cxt ~level f (Object objs)
   | Caml_block (el, _, tag, Blk_constructor p) ->
       let not_is_cons = p.name <> Literals.cons in

lib/4.06.1/unstable/js_playground_compiler.ml

@@ -81749,12 +81749,14 @@ and expression_desc cxt ~(level : int) f x : cxt =
       in
       if p.num_nonconst = 1 && not !Js_config.debug then
         pp_comment_option f (Some p.name);
-      let objs = if List.length p.optional_labels <> 0 then
+      let objs = match p.optional_labels with
+      | [] -> objs
+      | _ ->
         Ext_list.array_list_filter_map p.fields el (fun f x ->
           match x.expression_desc with
           | Undefined when List.mem f p.optional_labels -> None
           | _ -> Some (Js_op.Lit f, x))
-      else objs in
+      in
       expression_desc cxt ~level f (Object objs)
   | Caml_block (el, _, tag, Blk_constructor p) ->
       let not_is_cons = p.name <> Literals.cons in

lib/4.06.1/whole_compiler.ml

@@ -257581,12 +257581,14 @@ and expression_desc cxt ~(level : int) f x : cxt =
       in
       if p.num_nonconst = 1 && not !Js_config.debug then
         pp_comment_option f (Some p.name);
-      let objs = if List.length p.optional_labels <> 0 then
+      let objs = match p.optional_labels with
+      | [] -> objs
+      | _ ->
         Ext_list.array_list_filter_map p.fields el (fun f x ->
           match x.expression_desc with
           | Undefined when List.mem f p.optional_labels -> None
           | _ -> Some (Js_op.Lit f, x))
-      else objs in
+      in
       expression_desc cxt ~level f (Object objs)
   | Caml_block (el, _, tag, Blk_constructor p) ->
       let not_is_cons = p.name <> Literals.cons in