Toplevel: fix for when use-js-strings is disabled

vouillon · hhugo · commit 6b1510a7d589 · 2025-05-16T14:45:04.000+02:00
diff --git a/CHANGES.md b/CHANGES.md
@@ -49,6 +49,7 @@
 * Runtime: fix caml_string_concat when not using JS strings (#1874)
 * Runtime: consistent bigarray hashing across all architectures (#1977)
 * Tools: fix jsoo_mktop and jsoo_mkcmis (#1877)
+* Toplevel: fix for when use-js-strings is disabled (#1997)
 
 # 6.0.1 (2025-02-07) - Lille
 
diff --git a/runtime/js/jslib.js b/runtime/js/jslib.js
@@ -134,8 +134,9 @@ function caml_jsoo_flags_use_js_string(unit) {
 }
 
 //Provides: caml_jsoo_flags_effects
+//Requires: caml_string_of_jsstring
 function caml_jsoo_flags_effects(unit) {
-  return CONFIG("effects");
+  return caml_string_of_jsstring(CONFIG("effects"));
 }
 
 //Provides: caml_wrap_exception const (mutable)

Original file line number	Diff line number	Diff line change
`@@ -134,8 +134,9 @@ function caml_jsoo_flags_use_js_string(unit) {`
`134`	`134`	`}`
`135`	`135`
`136`	`136`	`//Provides: caml_jsoo_flags_effects`
	`137`	`+//Requires: caml_string_of_jsstring`
`137`	`138`	`function caml_jsoo_flags_effects(unit) {`
`138`		`- return CONFIG("effects");`
	`139`	`+ return caml_string_of_jsstring(CONFIG("effects"));`
`139`	`140`	`}`
`140`	`141`
`141`	`142`	`//Provides: caml_wrap_exception const (mutable)`