Fut: add Infix_local

src/fut.ml

@@ -329,10 +329,12 @@ end) : INFIX = struct
   let ( and* ) = both
 end
 
-include Infix_ (struct
+module Infix_local = Infix_ (struct
   let pool = None
 end)
 
+include Infix_local
+
 module Infix (X : sig
   val pool : Pool.t
 end) =

src/fut.mli

@@ -141,8 +141,10 @@ module type INFIX = sig
   val ( and* ) : 'a t -> 'b t -> ('a * 'b) t
 end
 
+module Infix_local : INFIX
+(** Operators that run on the same thread as the first future. *)
+
 include INFIX
-(** Operators that run on the same thread *)
 
 (** Make infix combinators *)
 module Infix (_ : sig