diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1995-07-11 08:54:13 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1995-07-11 08:54:13 +0000 |
| commit | 7068ced58387fc070ffb46db3959f25804c9dea9 (patch) | |
| tree | 8153a84cf114a8e6dad1942278821bb58cb32766 /stdlib/pervasives.ml | |
| parent | c56071ab567f49d7eaefffd5f6ddbcfbae897ac0 (diff) | |
| download | ocaml-7068ced58387fc070ffb46db3959f25804c9dea9.tar.gz | |
Lexing.get_next_char est maintenant en ML.
Utilisation des primitives %floatofint et %intoffloat.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@77 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'stdlib/pervasives.ml')
| -rw-r--r-- | stdlib/pervasives.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/pervasives.ml b/stdlib/pervasives.ml index 556190c8fe..4bdd94c5f8 100644 --- a/stdlib/pervasives.ml +++ b/stdlib/pervasives.ml @@ -73,8 +73,8 @@ external atan2 : float -> float -> float = "atan2_float" let abs_float f = if f >= 0.0 then f else -. f -external float : int -> float = "float_of_int" -external truncate : float -> int = "int_of_float" +external float : int -> float = "%floatofint" +external truncate : float -> int = "%intoffloat" (* String operations -- more in module String *) |