Fmt.kstrf doesn't like partial application

[samoht]

The following program gives an assert failure:

let parse fmt = Fmt.kstrf (fun x -> x) fmt

let check f = assert (f "X" = f "X")

let () = check (parse "%s")

This is fixed if you replace Fmt.kstrf by Format.ksprintf. This is fixed if you eta-expand (parse "%s") into (fun x -> parse "%s" x). Not sure exactly what is happening there ...

[dbuenzli]

A Buffer.reset is missing on this line to protect whenever the internal buffer ends up being reused.

[dbuenzli]

Here aswell.