bytevector-ieee-double-native-set! throws an error when the value is exact integer

[ktakashi]

This piece of code throws an error.

(define bv (make-bytevector 8))
(bytevector-ieee-single-native-set! v 0 1)

whilst this is okay.

(define bv (make-bytevector 8))
(bytevector-ieee-single-native-set! v 0 1.0)

The simplest fix, I think, could be adding (define x (inexact x)) (or adding let) in the definition of bytevector-ieee-double-native-set!.