id	summary	reporter	owner	description	type	status	priority	milestone	component	resolution	keywords	cc	planetversion	pltversion
280	eof error	rik.vanmechelen@…	soegaard	"It says in the comments that when you reach an eof it should return #f when reading.
I got an error that the bitwise-and got eof as first argument
the fix for this is:
;;;new if statement to chech for eof first
 (define (read-few-bits n)
        (if (eof-object? buffer)
            #f
            (let ((value (bitwise-and buffer 	; all bits in buffer
                                      (sub1 (<<1 mask)))))
              (set! bits-in-buffer (- bits-in-buffer n))
              (set! mask (>> mask n))
              (>> value bits-in-buffer)))) ; remove extra bits

and 
;;;added and with not eof?
((and (= n 1)		; read one bit
                (not (eof-object? buffer)))
	   (let ((value (if (bit-set? buffer mask) 1 0)))
	     (set! mask (>>1 mask))
	     (set! bits-in-buffer (sub1 bits-in-buffer))
	     value))

bye,
Rik Vanmechelen
rik.vanmechelen@vub.ac.be
Vrije Universiteit Brussel"	defect	new	critical		soegaard/bit-io.plt		eof error		(2 0)	4.2.4