Fix unnecessary variables generated for partial application with strings.

Fixes #5489

Author: cristianoc

jscomp/core/lam_eta_conversion.ml

@@ -42,7 +42,7 @@ let transform_under_supply n ap_info fn args =
  match lam with
  | Lvar _
  | Lconst
- ( Const_int _ | Const_char _ | Const_string _ | Const_float _
+ ( Const_int _ | Const_char _ | Const_string _ | Const_unicode _ | Const_float _
  | Const_int64 _ | Const_pointer _ | Const_js_true | Const_js_false
  | Const_js_undefined )
  | Lprim { primitive = Pfield (_, Fld_module _); _ }

lib/4.06.1/unstable/js_compiler.ml

@@ -87092,7 +87092,7 @@ let transform_under_supply n ap_info fn args =
  match lam with
  | Lvar _
  | Lconst
- ( Const_int _ | Const_char _ | Const_string _ | Const_float _
+ ( Const_int _ | Const_char _ | Const_string _ | Const_unicode _ | Const_float _
  | Const_int64 _ | Const_pointer _ | Const_js_true | Const_js_false
  | Const_js_undefined )
  | Lprim { primitive = Pfield (_, Fld_module _); _ }

lib/4.06.1/unstable/js_playground_compiler.ml

@@ -87092,7 +87092,7 @@ let transform_under_supply n ap_info fn args =
  match lam with
  | Lvar _
  | Lconst
- ( Const_int _ | Const_char _ | Const_string _ | Const_float _
+ ( Const_int _ | Const_char _ | Const_string _ | Const_unicode _ | Const_float _
  | Const_int64 _ | Const_pointer _ | Const_js_true | Const_js_false
  | Const_js_undefined )
  | Lprim { primitive = Pfield (_, Fld_module _); _ }

lib/4.06.1/whole_compiler.ml

@@ -248593,7 +248593,7 @@ let transform_under_supply n ap_info fn args =
  match lam with
  | Lvar _
  | Lconst
- ( Const_int _ | Const_char _ | Const_string _ | Const_float _
+ ( Const_int _ | Const_char _ | Const_string _ | Const_unicode _ | Const_float _
  | Const_int64 _ | Const_pointer _ | Const_js_true | Const_js_false
  | Const_js_undefined )
  | Lprim { primitive = Pfield (_, Fld_module _); _ }