JS 객체 (레코드)를받는 OCaml 함수를 감싸기

Question

OCaml에서 매우 간단한 함수를 작성하여 JS 함수 jsGet을 js_of_ocaml으로 바꾸어서 jsGet이 JS 객체 (또는 레코드)를 취할 수 있도록합니다. 입력으로. Home.js 반환 출력으로 undefined를 실행하지만,

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 잘 컴파일 :

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

wrap.ml에서 :

나는 다음 코드를 시도했다.

누구든지 해결 방법을 알고 있습니까?

Answer 1

밑줄을 제거하십시오. 메소드 이름 및 밑줄을 참조하시기 바랍니다. http://ocsigen.org/js_of_ocaml/2.8/manual/bindings