WIP

Author: vouillon

.github/workflows/build-wasm_of_ocaml.yml

@@ -122,7 +122,8 @@ jobs:
       - name: Checkout Virgil
         uses: actions/checkout@v4
         with:
-          repository: titzer/virgil
+          repository: vouillon/virgil
+          ref: wasi
           path: virgil
 
       - name: Build Virgil
@@ -135,7 +136,8 @@ jobs:
       - name: Checkout Wizard engine
         uses: actions/checkout@v4
         with:
-          repository: titzer/wizard-engine
+          repository: vouillon/wizard-engine
+          ref: wasi
           path: wizard-engine
 
       - name: Build Wizard engine

compiler/tests-ocaml/lib-channels/close_in.ml

@@ -7,7 +7,7 @@
 let nb_bytes = 3
 
 let () =
-  let ic = open_in_bin (Filename.basename Sys.argv.(0)) in
+  let ic = open_in_bin Sys.argv.(0) in
   seek_in ic nb_bytes;
   close_in ic;
   assert (
@@ -21,7 +21,7 @@ let () =
 
 (* A variant of #11878, which #11965 failed to fix. *)
 let () =
-  let ic = open_in_bin (Filename.basename Sys.argv.(0)) in
+  let ic = open_in_bin Sys.argv.(0) in
   close_in ic;
   begin try
     seek_in ic (-1);