Commit 05f6fd82 authored by POTTIER Francois's avatar POTTIER Francois
Browse files

In `--interpret` mode, print `Ready!` once ready to accept input.

parent fa2f39c4
...@@ -8,6 +8,8 @@ ...@@ -8,6 +8,8 @@
These references were infrequent anyway, These references were infrequent anyway,
and `Pervasives` is about to be deprecated in OCaml 4.08, it seems. and `Pervasives` is about to be deprecated in OCaml 4.08, it seems.
* In `--interpret` mode, print `Ready!` once ready to accept input.
* Coq back-end: add a few newlines in the generated file for readability. * Coq back-end: add a few newlines in the generated file for readability.
(Suggested by Bernhard Schommer.) (Suggested by Bernhard Schommer.)
......
...@@ -605,6 +605,7 @@ module Run (X : sig end) = struct ...@@ -605,6 +605,7 @@ module Run (X : sig end) = struct
let () = let () =
if Settings.interpret then if Settings.interpret then
let read = setup() in let read = setup() in
Printf.printf "Ready!\n%!";
while true do while true do
match read() with match read() with
| None -> | None ->
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment