From ea34ca15e3338c7db9708ce15efbc59956e60bce Mon Sep 17 00:00:00 2001
From: Olivier Nicole <olivier@chnik.fr>
Date: Tue, 3 Sep 2024 15:36:06 +0200
Subject: [PATCH] WSOO side of ocsigen/js_of_ocaml#1659

---
 compiler/lib/wasm/wa_link.ml | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/compiler/lib/wasm/wa_link.ml b/compiler/lib/wasm/wa_link.ml
index 453c65858..ca39cef19 100644
--- a/compiler/lib/wasm/wa_link.ml
+++ b/compiler/lib/wasm/wa_link.ml
@@ -494,28 +494,28 @@ let build_runtime_arguments
       Javascript.call
         (EArrow
            ( Javascript.fun_
-               [ Javascript.ident Constant.global_object_ ]
+               [ Javascript.ident Global_constant.global_object_ ]
                [ var
-                   Constant.old_global_object_
-                   (EVar (Javascript.ident Constant.global_object_))
+                   Global_constant.old_global_object_
+                   (EVar (Javascript.ident Global_constant.global_object_))
                ; var
-                   Constant.exports_
+                   Global_constant.exports_
                    (EBin
                       ( Or
                       , EDot
                           ( EDot
-                              ( EVar (Javascript.ident Constant.global_object_)
+                              ( EVar (Javascript.ident Global_constant.global_object_)
                               , ANullish
                               , Utf8_string.of_string_exn "module" )
                           , ANullish
                           , Utf8_string.of_string_exn "export" )
-                      , EVar (Javascript.ident Constant.global_object_) ))
+                      , EVar (Javascript.ident Global_constant.global_object_) ))
                ; Return_statement (Some (obj generated_js)), N
                ]
                N
            , true
            , AUnknown ))
-        [ EVar (Javascript.ident Constant.global_object_) ]
+        [ EVar (Javascript.ident Global_constant.global_object_) ]
         N
   in
   obj