Mention the help directive on toplevel startup

Trimmed leading spaces to fit the message in 80 columns (in ocamlnat)
ocaml · Aug 25, 2021 · 6c3bc8c · 6c3bc8c
1 parent 90c1365
commit 6c3bc8c
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/Changes b/Changes
@@ -61,6 +61,9 @@ Working version
   (Nicolás Ojeda Bär, report by Gabriel Scherer, review by Daniel Bünzli,
   Gabriel Scherer and David Allsopp)
 
+- #10527: Show "#help;; for help" at toplevel startup
+  (Wiktor Kuchta, review by ...)
+
 ### Manual and documentation:
 
 - #7812, #10475: reworded the description of the behaviors of

diff --git a/toplevel/toploop.ml b/toplevel/toploop.ml
@@ -187,7 +187,7 @@ let loop ppf =
   Clflags.debug := true;
   Location.formatter_for_warnings := ppf;
   if not !Clflags.noversion then
-    fprintf ppf "        OCaml version %s%s%s@.@."
+    fprintf ppf "    OCaml version %s%s%s    #help;; for help@.@."
       Config.version
       (if Topeval.implementation_label = "" then "" else " - ")
       Topeval.implementation_label;