[BUG] `--enable=effects` may cause incorrect compilation results (TypeError: cont is not a function) about js_of_ocaml HOT 7 CLOSED

Thanks, this has been fixed in dbuenzli/brr@5b1dbed. It seems I missed that in the PR by Jérôme and subsequent commit of mine that was supposed to sanitize all that.

from js_of_ocaml.

There is a bug in prr.
In file fut.ml, the definition of tick should be:

let tick ~ms =
  fut @@ Jv.Promise.create @@ fun res _rej ->
  ignore (Jv.apply (Jv.get Jv.global "setTimeout") Jv.[| callback ~arity:1 res; of_int ms |])

from js_of_ocaml.

@vouillon many thanks for taking time to look into it. I just applied your suggested fix and now the test passes!

As prr is merely a fork (and out-of-date version) of brr and it seems that brr still has the same code, we will open a bug report on brr as well.

Do you mind to share how you traced the root cause down? We found it quite difficult to trace such bugs as stack trace isn't very helpful (even if source map is on..)

from js_of_ocaml.

This looked like a calling convention mismatch (an OCaml function called from JavaScript as if it was a JavaScript function).
The error was in some prr code related to promises (function Jv.Promise.create), and indeed in a callback.
And the stack trace mentions Timeout._onTimeout, so I searched for a setTimeout.

from js_of_ocaml.

Wow that's impressive and thanks for the hint!

Fixing fut.ml made our codebase all worked again. I think this issue can be closed as it's now apparent that it's due to a misuse instead of a bug in jsoo.

(@kxc-wraikny opened this issue on behalf of our team but @kxc-wraikny is taking a break until Mar 28;
so I will be handing the communication until then.)

from js_of_ocaml.

Thanks, this has been fixed in dbuenzli/brr@5b1dbed. It seems I missed that in the PR by Jérôme and subsequent commit of mine that was supposed to sanitize all that.

@dbuenzli Thanks! I think I missed it in my PR as well.

from js_of_ocaml.

Thank you all again!

from js_of_ocaml.