修复编译错误。

用来兼容 ocaml 4.0 。
https://lists.forge.ocamlcore.org/pipermail/lablgtk-list/2012-June/001951.html