js-of-ocaml - 包装一个接收 JS 对象（记录）的 OCaml 函数

Question

我想在 OCaml 中编写一个非常简单的函数，并将其包装成一个 JS 函数jsGet，js_of_ocaml这样就jsGet可以将 JS 对象（或记录）作为输入。

我尝试了以下代码：

\\ in Home.js
function testJsGet () {
    var input = {field_1: 5, field_2: 6};
    var output = jsGet(input);
    document.getElementById("result").value += output;
}

在wrap.ml：

type t =
  < field_1: int Js.prop;
    field_2: int Js.prop
  > Js.t

let () =
  Js.Unsafe.global##.jsGet := Js.wrap_callback
      (fun (r:t) -> r##.field_1);

wrap.ml编译得很好，但是，运行Home.js返回undefined作为输出。

有谁知道如何纠正这个？

Answer 1

删除下划线。请参阅http://ocsigen.org/js_of_ocaml/2.8/manual/bindings上的方法名称和下划线