More cleanup.

Author: cristianoc

jscomp/frontend/bs_builtin_ppx.ml

@@ -125,7 +125,7 @@ let expr_mapper  (self : mapper) (e : Parsetree.expression) =
     begin match Ast_attributes.process_attributes_rev e.pexp_attributes with
       | Nothing, _
         -> default_expr_mapper self e
-      | Uncurry (_, _async), pexp_attributes
+      | Uncurry _, pexp_attributes
         ->
         let async = Ast_attributes.has_async_payload e.pexp_attributes <> None in
         {e with