Lib: fix lwt_jsonp

ocsigen · Dec 19, 2022 · 3f67baa · 3f67baa
1 parent 5310777
commit 3f67baa
Showing 1 changed file with 7 additions and 4 deletions.
diff --git a/lib/lwt/lwt_jsonp.ml b/lib/lwt/lwt_jsonp.ml
@@ -38,10 +38,13 @@ let raw_call name uri error_cb user_cb =
     Js.Opt.iter script##.parentNode (fun parent -> Dom.removeChild parent script)
   in
   let executed = ref false in
-  Js.Unsafe.set Dom_html.window (Js.string name) (fun x ->
-      executed := true;
-      finalize ();
-      user_cb x);
+  Js.Unsafe.set
+    Dom_html.window
+    (Js.string name)
+    (Js.wrap_callback (fun x ->
+         executed := true;
+         finalize ();
+         user_cb x));
   script##.src := Js.string uri;
   script##._type := Js.string "text/javascript";
   script##.async := Js._true;