<*> does not invoke a function when the third argument is supplied

[luminusian]

Currently,

(m/<*> (fn [_] inc) inc 1)
=>
#object[cats.builtin$reify__1037$fn__1038
        0x5ef84c83
        "cats.builtin$reify__1037$fn__1038@5ef84c83"]
((m/<*> (fn [_] inc) inc) 1)
=> 3

Ideally,

(<*> (fn [_] inc) inc 1)
=> 3

Haskell's definition takes three arguments although it doesn't matter how it's defined in Haskell as it's curried.
https://hackage.haskell.org/package/base-4.9.0.0/docs/src/GHC.Base.html#line-641

In order to accept the third argument, -fppply of cats.builtin's function-context can be modified like this:

    (-fapply [_ self av]
      (if (fn? av)
        (fn [x] ((self x) (av x)))
        (self av)))