Runtime: ignore exception when closing a channel

ocaml-wasm · Dec 20, 2023 · b7eeca1 · b7eeca1
1 parent 13536aa
commit b7eeca1
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/runtime/wasm/io.wat b/runtime/wasm/io.wat
@@ -270,7 +270,12 @@
             (struct.set $channel $fd (local.get $ch) (i32.const -1))
             (call $unregister_channel (local.get $ch))
             (call $release_fd_offset (local.get $fd))
-            (call $close (local.get $fd))))
+            (try
+               (do
+                  (call $close (local.get $fd)))
+               (catch $javascript_exception
+                  ;; ignore exception
+                  (drop (pop externref))))))
       (ref.i31 (i32.const 0)))
 
    (func $caml_do_read