diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2015-09-07 13:49:28 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2015-09-07 13:49:28 +0000 |
| commit | b67a732866b028f6a281f7978745d5a8dc268a32 (patch) | |
| tree | f00c0c4bfcef812440c17c0b05f9d450ea393977 /stdlib/array.ml | |
| parent | 31a85a87b440bfdaeeced5c38d3049ffdec7795f (diff) | |
| download | ocaml-b67a732866b028f6a281f7978745d5a8dc268a32.tar.gz | |
add create_float_array and deprecate make_float_array
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@16406 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'stdlib/array.ml')
| -rw-r--r-- | stdlib/array.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/stdlib/array.ml b/stdlib/array.ml index 243eeade17..43e4f768d8 100644 --- a/stdlib/array.ml +++ b/stdlib/array.ml @@ -25,7 +25,8 @@ external append_prim : 'a array -> 'a array -> 'a array = "caml_array_append" external concat : 'a array list -> 'a array = "caml_array_concat" external unsafe_blit : 'a array -> int -> 'a array -> int -> int -> unit = "caml_array_blit" -external make_float: int -> float array = "caml_make_float_vect" +external create_float: int -> float array = "caml_make_float_vect" +let make_float = create_float let init l f = if l = 0 then [||] else |