blob: 247ae274f9f795ce1237f92e1c573d47cc9fa550 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
--- ubase/uprintf.ml.orig Thu Jul 29 22:50:35 2004
+++ ubase/uprintf.ml Thu Jul 29 22:51:55 2004
@@ -10,8 +10,8 @@
(* *)
(***********************************************************************)
-external format_int: string -> int -> string = "format_int"
-external format_float: string -> float -> string = "format_float"
+external format_int: string -> int -> string = "caml_format_int"
+external format_float: string -> float -> string = "caml_format_float"
let fprintf outchan doafter format =
let format = (Obj.magic format : string) in
|
