diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2012-01-12 15:46:51 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2012-01-12 15:46:51 +0000 |
| commit | 10ed81e2c8ded4e86b96503a367ff971aa662d48 (patch) | |
| tree | 402b71e9a8521d99c2ba7a4d8199c20c54fc6239 | |
| parent | b4ccb873a64c33f2d761a1f7803899ae128755a1 (diff) | |
extra def. of ~+; cut long lines
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@12019 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | stdlib/pervasives.ml | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/stdlib/pervasives.ml b/stdlib/pervasives.ml index 5148f228f..17a1a9c1a 100644 --- a/stdlib/pervasives.ml +++ b/stdlib/pervasives.ml @@ -52,7 +52,6 @@ external ( || ) : bool -> bool -> bool = "%sequor" external ( ~- ) : int -> int = "%negint" external ( ~+ ) : int -> int = "%identity" -external (~+) : int -> int = "%identity" external succ : int -> int = "%succint" external pred : int -> int = "%predint" external ( + ) : int -> int -> int = "%addint" @@ -91,7 +90,8 @@ external acos : float -> float = "caml_acos_float" "acos" "float" external asin : float -> float = "caml_asin_float" "asin" "float" external atan : float -> float = "caml_atan_float" "atan" "float" external atan2 : float -> float -> float = "caml_atan2_float" "atan2" "float" -external hypot : float -> float -> float = "caml_hypot_float" "caml_hypot" "float" +external hypot : float -> float -> float + = "caml_hypot_float" "caml_hypot" "float" external cos : float -> float = "caml_cos_float" "cos" "float" external cosh : float -> float = "caml_cosh_float" "cosh" "float" external log : float -> float = "caml_log_float" "log" "float" @@ -105,7 +105,8 @@ external tanh : float -> float = "caml_tanh_float" "tanh" "float" external ceil : float -> float = "caml_ceil_float" "ceil" "float" external floor : float -> float = "caml_floor_float" "floor" "float" external abs_float : float -> float = "%absfloat" -external copysign : float -> float -> float = "caml_copysign_float" "caml_copysign" "float" +external copysign : float -> float -> float + = "caml_copysign_float" "caml_copysign" "float" external mod_float : float -> float -> float = "caml_fmod_float" "fmod" "float" external frexp : float -> float * int = "caml_frexp_float" external ldexp : float -> int -> float = "caml_ldexp_float" @@ -214,7 +215,8 @@ let rec ( @ ) l1 l2 = type in_channel type out_channel -external open_descriptor_out : int -> out_channel = "caml_ml_open_descriptor_out" +external open_descriptor_out : int -> out_channel + = "caml_ml_open_descriptor_out" external open_descriptor_in : int -> in_channel = "caml_ml_open_descriptor_in" let stdin = open_descriptor_in 0 |