#include <caml/mlvalues.h>
#include <caml/domain_state.h>
#include <caml/signals.h>

value with_lock(value unit)
{
  return Val_bool(Caml_state_opt != NULL);
}

value without_lock(value unit)
{
  int res;
  caml_enter_blocking_section();
  res = (Caml_state_opt != NULL);
  caml_leave_blocking_section();
  return Val_bool(res);
}