Re: uniform-array-read!

[Alan Bram]

Hi,

I've been following along on this topic only half-absentmindedly, so I
apologize if I missed something.  But, just thought it might be a
useful data point to know:

Both of the following variants seem to be working just fine for me:

,--
| (define read-network-byte
|   (lambda (port)
|     (let ((v (make-uniform-vector 1 #\nul)))
|       (uniform-vector-read! v port)
|       (uniform-vector-ref v 0))))
|
|
| (define read-network-byte
|   (lambda (port)
|     (let ((v (make-uniform-array #\nul 1)))
|       (uniform-array-read! v port)
|       (uniform-vector-ref v 0))))
`--

Guile version 1.6.7 on Debian Linux i386.

Cheers,
 - arb