Don't refer to caml_ml_domain_id on OCaml 4

See #332 Co-authored-by: Hugo Heuzard <[email protected]>
ocaml-multicore · Nov 24, 2024 · 2c09e0a · 2c09e0a
1 parent 6d64d24
commit 2c09e0a
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/lib/picos.thread/thread.ocaml4.js b/lib/picos.thread/thread.ocaml4.js
@@ -7,10 +7,9 @@ function caml_thread_initialize(unit) {
 var caml_thread = [0, 0, 0, 0]
 
 //Provides: caml_thread_self
-//Requires: caml_ml_domain_id, caml_failwith, caml_thread
+//Requires: caml_thread
 function caml_thread_self(unit) {
-  if (caml_ml_domain_id(unit) != caml_thread[1])
-    caml_failwith('caml_thread_self: spawning of domains is not supported')
+  // There are no threads other than the main thread.
   return caml_thread
 }