[racket] In need of flexpt

I am missing flexpt in racket/flonum.

I could live without, and use one of those below.
However it looks as a natural operation to have in racket/flonum.

(define (flexpt1 a x)
  (real->float (expt a x)))

(define (flexpt2 a x)
  (flexp (fl* x (fllog a))))

The second is about twice as fast as the second,
but sacrifices numeriacal precision.

--
Jens Axel Søgaard