port-position wraps around

[Gwen Weinholt]

It looks like port-position wraps around when it gets over 16384. It feels a bit related to bug 240783.

Ikarus Scheme version 0.0.3+ (revision 1549, build 2008-07-23, 64-bit)
Copyright (c) 2006-2008 Abdulaziz Ghuloum

> (let ((p (open-file-input-port "/dev/zero")))
    (let lp ()
      (let* ((pos (port-position p))
             (b (get-u8 p)))
        (when (< (port-position p) pos)
          (error #f "port position wrapped around" pos (port-position p)))
        (unless (or (eof-object? b) (> pos #x10000))
          (lp)))))
Unhandled exception
 Condition components:
   1. &error
   2. &message: "port position wrapped around"
   3. &irritants: (16384 1)
>

[Abdulaziz Ghuloum (aghuloum)]

Fixed in 1550.

[Abdulaziz Ghuloum (aghuloum)]

On Jul 23, 2008, at 11:18 AM, Launchpad Bug Tracker wrote:

> Ikarus Scheme version 0.0.3+ (revision 1549, build 2008-07-23, 64-bit)

And thanks for trying the 64-bit build.