CAMLprim value caml_expm1_float(value f) { return caml_copy_double(caml_expm1(Double_val(f))); }
CAMLprim value caml_expm1_float_r(CAML_R, value f) { return caml_copy_double_r(ctx, caml_expm1(Double_val(f))); }