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 _); _ }