regularisation de print_endline

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5387 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Damien Doligez 2003-01-22 16:32:57 +00:00
parent 306f79785d
commit 992ea70149
2 changed files with 3 additions and 2 deletions

View File

@ -359,7 +359,8 @@ let print_char c = output_char stdout c
let print_string s = output_string stdout s
let print_int i = output_string stdout (string_of_int i)
let print_float f = output_string stdout (string_of_float f)
let print_endline s = output_string stdout s; output_char stdout '\n'
let print_endline s =
output_string stdout s; output_char stdout '\n'; flush stdout
let print_newline () = output_char stdout '\n'; flush stdout
(* Output functions on standard error *)

View File

@ -475,7 +475,7 @@ val print_float : float -> unit
val print_endline : string -> unit
(** Print a string, followed by a newline character, on
standard output. *)
standard output and flush standard output. *)
val print_newline : unit -> unit
(** Print a newline character on standard output, and flush