Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

fix a regression in Format formatting printing routines

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@14842 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
  • Loading branch information...
commit 0e1584665ebc486999e69546bcd42263a0de525e 1 parent eccf1e2
Gabriel Scherer authored
Showing with 3 additions and 5 deletions.
  1. +3 −5 stdlib/format.ml
View
8 stdlib/format.ml
@@ -232,8 +232,6 @@ let pp_output_string state s = state.pp_out_string s 0 (String.length s)
and pp_output_newline state = state.pp_out_newline ()
and pp_output_spaces state n = state.pp_out_spaces n
-let pp_output_char state c = pp_output_string state (String.make 1 c)
-
(* To format a break, indenting a new line. *)
let break_new_line state offset width =
pp_output_newline state;
@@ -1081,9 +1079,9 @@ let output_formatting ppf fmting = match fmting with
| Force_newline -> pp_force_newline ppf ()
| Flush_newline -> pp_print_newline ppf ()
| Magic_size (_, _) -> ()
- | Escaped_at -> pp_output_char ppf '@'
- | Escaped_percent -> pp_output_char ppf '%'
- | Scan_indic c -> pp_output_char ppf '@'; pp_output_char ppf c
+ | Escaped_at -> pp_print_char ppf '@'
+ | Escaped_percent -> pp_print_char ppf '%'
+ | Scan_indic c -> pp_print_char ppf '@'; pp_print_char ppf c
(* Recursively output an "accumulator" containing a reversed list of
printing entities (string, char, flus, ...) in an output_stream. *)
Please sign in to comment.
Something went wrong with that request. Please try again.