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