To compile with OCaml 3.11.2 and later
This commit is contained in:
parent
d108f516df
commit
c1deec28df
|
@ -961,7 +961,7 @@ struct
|
||||||
let make_output ?(decl = true) ?(nl = false) ?(indent = None)
|
let make_output ?(decl = true) ?(nl = false) ?(indent = None)
|
||||||
?(ns_prefix = fun _ ->None) d =
|
?(ns_prefix = fun _ ->None) d =
|
||||||
let outs, outc = match d with
|
let outs, outc = match d with
|
||||||
| `Channel c -> (output_substring c), (output_char c)
|
| `Channel c -> (output c), (output_char c)
|
||||||
| `Buffer b -> (Std_buffer.add_substring b), (Std_buffer.add_char b)
|
| `Buffer b -> (Std_buffer.add_substring b), (Std_buffer.add_char b)
|
||||||
| `Fun f ->
|
| `Fun f ->
|
||||||
let os s p l =
|
let os s p l =
|
||||||
|
|
Loading…
Reference in New Issue