get-u8 and lookahead-u8 did not update the port position properly.

Fixed.

scheme/ikarus.io.ss

@@ -1177,21 +1177,12 @@
     (import UNSAFE)
     (define (get-u8-byte-mode p who start) 
       (when ($port-closed? p) (die who "port is closed" p))
-      (let* ([bv ($port-buffer p)]
+      (let ([cnt (refill-bv-buffer p who)])
-             [n (bytevector-length bv)])
+        (cond
-        (let ([j (($port-read! p) bv 0 n)])
+          [(eqv? cnt 0) (eof-object)]
-          (unless (fixnum? j)
+          [else 
-            (die who "invalid return value from read! procedure" j))
+           ($set-port-index! p start)
-          (cond
+           (bytevector-u8-ref ($port-buffer p) 0)])))
-            [(fx> j 0) 
-             (unless (fx<= j n)
-               (die who "read! returned a value out of range" j))
-             ($set-port-index! p start) 
-             ($set-port-size! p j)
-             (bytevector-u8-ref bv 0)]
-            [(fx= j 0) (eof-object)]
-            [else 
-             (die who "read! returned a value out of range" j)]))))
     (define (slow-get-u8 p who start) 
       (assert-binary-input-port p who)
       ($set-port-attrs! p fast-get-byte-tag)

scheme/last-revision

@@ -1 +1 @@
-1548
+1549