|
Lines 10-17
Link Here
|
| 10 |
(* *) |
10 |
(* *) |
| 11 |
(***********************************************************************) |
11 |
(***********************************************************************) |
| 12 |
|
12 |
|
| 13 |
external format_int: string -> int -> string = "format_int" |
13 |
external format_int: string -> int -> string = "caml_format_int" |
| 14 |
external format_float: string -> float -> string = "format_float" |
14 |
external format_float: string -> float -> string = "caml_format_float" |
| 15 |
|
15 |
|
| 16 |
let fprintf outchan doafter format = |
16 |
let fprintf outchan doafter format = |
| 17 |
let format = (Obj.magic format : string) in |
17 |
let format = (Obj.magic format : string) in |
