[Chicken-users] Re: bytevectors

[Eduardo Cavazos]

Eduardo Cavazos wrote:

> Hmmm... After poking around some, I see that I can probably cook up a 
> compatability layer. Something along these lines:

This is what I ended up using. I loaded into Chicken and it's handling 
some "R6RS" code of mine. These procedures are in tight loops. Chicken 
is keeping up with Larceny and Ypsilon so I'm guessing the overhead 
introduced isn't too bad. ;-)

----------------------------------------------------------------------
(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))
----------------------------------------------------------------------

Ed