From 7b2eea4684c73003638d62c45fe9c86d7298658f Mon Sep 17 00:00:00 2001 From: Markus Mottl Date: Sat, 7 Dec 2024 19:41:09 -0500 Subject: [PATCH] Switched to ocamlformat 0.27.0 --- .ocamlformat | 2 +- src/config/do_sf.ml | 6 ++++-- src/poly.mli | 3 +-- 3 files changed, 6 insertions(+), 5 deletions(-) diff --git a/.ocamlformat b/.ocamlformat index 22677df..8b74af6 100644 --- a/.ocamlformat +++ b/.ocamlformat @@ -1,4 +1,4 @@ -version = 0.26.2 +version = 0.27.0 profile = conventional # Default overrides diff --git a/src/config/do_sf.ml b/src/config/do_sf.ml index 2e2ffa0..3e62960 100644 --- a/src/config/do_sf.ml +++ b/src/config/do_sf.ml @@ -46,8 +46,10 @@ let ext_quot = List.iter (fun a -> Format.fprintf bh " -> %s" (String.trim a)) argr; Format.fprintf bh "@ = "; if List.length args > 6 then Format.fprintf bh "\"%s_bc\"" name_c; - if (* List.for_all ~f:((=) "float") args && *) - name_float <> "" then ( + if + (* List.for_all ~f:((=) "float") args && *) + name_float <> "" + then ( if List.length args <= 6 then Format.fprintf bh "\"%s\"" name_c; Format.fprintf bh " \"%s\" [%@%@unboxed] [%@%@noalloc]" name_float) else Format.fprintf bh "\"%s\"" name_c; diff --git a/src/poly.mli b/src/poly.mli index ced0c7f..8db0f63 100644 --- a/src/poly.mli +++ b/src/poly.mli @@ -12,8 +12,7 @@ type poly = float array external eval : poly -> float -> float = "ml_gsl_poly_eval" (** [eval p x] returns - [p.(0) +. p.(1) *. x +. p.(2) *. x**2 +. ... +. p.(n) - *. x**n] where + [p.(0) +. p.(1) *. x +. p.(2) *. x**2 +. ... +. p.(n) *. x**n] where [n = Array.length p]. *) (** {3 Quadratic Equations} *)