测试是否在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";;怎么办？