[ocaml] fix bug on function "get_link"