Fix preprocessing.

lib/caml/h5.cppo.ml

@@ -1,10 +1,6 @@
 open Bigarray
 open Hdf5_raw
 
-#if OCAML_VERSION < (4, 3, 0)
-#define Array.create_float Array.make_float
-#endif
-
 let () = H5_raw.init ()
 
 let default_get_set init =
@@ -215,7 +211,11 @@ module Make_float(F : Float_arg) = struct
   let read_float_array t ?data name = read_data F.h5t
     (fun dims ->
       if Array.length dims <> 1 then invalid_arg "Dataset not one dimensional";
+#if OCAML_VERSION >= (4, 3, 0)
       Array.create_float dims.(0))
+#else
+      Array.make_float dims.(0))
+#endif
     (fun data dims ->
       if Array.length dims <> 1 then invalid_arg "Dataset not one dimensional";
       if Array.length data < dims.(0) then
@@ -300,14 +300,22 @@ module Make_float(F : Float_arg) = struct
     let dim2 = Array2.dim1 a in
     if transpose then begin
       Array.init dim1 (fun i ->
+#if OCAML_VERSION >= (4, 3, 0)
         let e = Array.create_float dim2 in
+#else
+        let e = Array.make_float dim2 in
+#endif
         for j = 0 to dim2 - 1 do
           Array.set e j (Array2.get a j i)
         done;
         e)
     end else begin
       Array.init dim1 (fun i ->
+#if OCAML_VERSION >= (4, 3, 0)
         let e = Array.create_float dim2 in
+#else
+        let e = Array.make_float dim2 in
+#endif
         for j = 0 to dim2 - 1 do
           Array.set e j (Array2.get a i j)
         done;