(import (chicken locative) (chicken memory) (srfi 4)) (define (f64-bytes n) (let* ((v (make-u8vector 8 0)) (l (make-locative v))) (pointer-f64-set! l n) (u8vector->list v)))