ocaml - 测试是否在 utop 中运行

Question

我在其中添加了几行，.ocamlinit以使 utop 提示不那么碍眼：

#require "react";;
#require "lambda-term";;
UTop.prompt := fst (React.S.create LTerm_text.(eval [
    S "\n";
    B_bold true;
    B_fg (LTerm_style.cyan);
    S "# ";
]));;

（我不明白那里发生的一切......我只是发现它在网上发布并进行了调整。）

但是现在如果我使用常规的ocaml顶层，我会得到：

Error: Unbound module UTop

.ocamlinit除非我正在运行 utop，否则我可以添加测试以跳过这些行吗？我可以将它们放在仅由 utop 加载的附加文件中吗？

Answer 1

如果添加#require "utop";;呢？