more fixes

Author: bobzhang

jscomp/core/lam_compile.ml

@@ -841,7 +841,7 @@ and
                 (
                   match obj_code with
                   | None -> Ext_list.append obj_block  arg_block
-                  | Some obj_code -> Ext_list.append obj_block @@ obj_code :: arg_block
+                  | Some obj_code -> Ext_list.append obj_block (obj_code :: arg_block)
                 )
             in 
             match obj_output, arg_output with 
@@ -860,7 +860,7 @@ and
                 | Some (obj_code, obj)
                   ->
                   cont obj_block arg_block (Some obj_code) 
-                    (E.assign (E.dot (E.var obj) property) value)
+                    (E.seq (E.assign (E.dot (E.var obj) property) value) E.unit)
               else 
                 compile_lambda cxt
                   (Lam.apply fn [arg]  

lib/whole_compiler.ml

@@ -98210,7 +98210,7 @@ and
                 (
                   match obj_code with
                   | None -> Ext_list.append obj_block  arg_block
-                  | Some obj_code -> Ext_list.append obj_block @@ obj_code :: arg_block
+                  | Some obj_code -> Ext_list.append obj_block (obj_code :: arg_block)
                 )
             in 
             match obj_output, arg_output with 
@@ -98220,14 +98220,16 @@ and
               if  Ext_string.ends_with method_name Literals.setter_suffix then 
                 let property =
                   Lam_methname.translate ~loc
-                    (String.sub method_name 0 (String.length method_name - Literals.setter_suffix_len)) in 
+                    (String.sub method_name 0 
+                      (String.length method_name - Literals.setter_suffix_len)) in 
                 match Js_ast_util.named_expression  obj with
                 | None ->
                   cont obj_block arg_block None 
                     (E.seq (E.assign (E.dot obj property) value) E.unit)
                 | Some (obj_code, obj)
                   ->
-                  cont obj_block arg_block (Some obj_code) (E.assign (E.dot (E.var obj) property) value)
+                  cont obj_block arg_block (Some obj_code) 
+                    (E.seq (E.assign (E.dot (E.var obj) property) value) E.unit)
               else 
                 compile_lambda cxt
                   (Lam.apply fn [arg]