Check if utop is working

Question

I added a few lines to mine .ocamlinitto make the utop tip smaller than the eyecup:

#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 "# ";
]));;

(I do not understand everything that happens there ... I just found it on the Internet and changed it.)

But now, if I use regular ocamltoplevel, I get:

Error: Unbound module UTop

Can I add a test on .ocamlinitto skip these lines if utop does not work for me? Can I put them in an extra file that only utop loads?

Answer 1

What if you added #require "utop";;?