Fix missing unescaping when accessing prop with exotic name (#7469)

* Fix missing unescaping when accessing prop with exotic name

* CHANGELOG

Author: cknitt

CHANGELOG.md

@@ -36,6 +36,7 @@
 - Fix missing checks for duplicate literals in variants with payloads. https://github.com/rescript-lang/rescript/pull/7441
 - Fix printer removing private for empty record. https://github.com/rescript-lang/rescript/pull/7448
 - Fix: handle dynamic imports with module aliases. https://github.com/rescript-lang/rescript/pull/7452
+- Fix missing unescaping when accessing prop with exotic name. https://github.com/rescript-lang/rescript/pull/7469
 
 #### :house: Internal
 

compiler/core/js_dump_property.ml

@@ -68,6 +68,7 @@ let obj_property_no_need_quot s =
     ]}
 *)
 let property_access f s =
+  let s = Ext_ident.unwrap_uppercase_exotic s in
   if obj_property_no_need_quot s then (
     P.string f L.dot;
     P.string f s)

tests/tests/src/gpr_7431_test.mjs

@@ -0,0 +1,13 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+
+let x = {
+  MyWeirdProp: Math.random()
+};
+
+console.log(x.MyWeirdProp);
+
+export {
+  x,
+}
+/* x Not a pure module */

tests/tests/src/gpr_7431_test.res

@@ -0,0 +1,5 @@
+type props = {\"MyWeirdProp": float}
+
+let x = {\"MyWeirdProp": Math.random()}
+
+Console.log(x.\"MyWeirdProp")

tests/tests/src/jsx_preserve_test.mjs

@@ -147,7 +147,7 @@ let _external_component_with_children = <QueryClientProvider>
 function Jsx_preserve_test$MyWeirdComponent(props) {
   return <p>
     {"foo"}
-    {props["\\\"MyWeirdProp\""]}
+    {props.MyWeirdProp}
   </p>;
 }