On Tue, Feb 17, 2009 at 10:51 PM, Eduardo Cavazos <[email protected]> wrote: > > ---------------------------------------------------------------------- > (use srfi-4) > > (define (make-bytevector n) > (u8vector->blob/shared (make-u8vector n))) > > (define bytevector-length blob-size) > > (define (bytevector-ieee-double-native-ref bv i) > (f64vector-ref (blob->f64vector/shared bv) (/ i 8))) > > (define (bytevector-ieee-double-native-set! bv i val) > (f64vector-set! (blob->f64vector/shared bv) (/ i 8) val)) > ---------------------------------------------------------------------- >
That looks good. And it should also be the most efficient solution. chers, felix _______________________________________________ Chicken-users mailing list [email protected] http://lists.nongnu.org/mailman/listinfo/chicken-users
