Skip to content
Snippets Groups Projects
Commit a561c00c authored by Patrick Baudin's avatar Patrick Baudin
Browse files

Removing Ocaml Warning 6: ommited label in the application of function

parent 80176f63
No related branches found
No related tags found
No related merge requests found
......@@ -452,7 +452,7 @@ let nextafter_aux ~is_f32 fincr fdecr x y =
then y
else if isnan x || isnan y then nan
else if x = 0.0 (* or -0.0 *) then
if x < y then min_denormal_float is_f32 else -. (min_denormal_float is_f32)
if x < y then min_denormal_float ~is_f32 else -. (min_denormal_float ~is_f32)
(* the following conditions might be simpler if we had unsigned ints
(uint32/uint64) *)
else if x = neg_infinity (* && y = neg_infinity *) then fdecr x
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment