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