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";; 会怎样？