port-has-port-position? wrong for custom ports which don't support port-position

[Derick Eddington]

Ikarus Scheme version 0.0.3+ (revision 1527, build 2008-07-02)
Copyright (c) 2006-2008 Abdulaziz Ghuloum

> (define cbip (make-custom-binary-input-port "foo" (lambda a 0) #f #f #f))
> (port-has-port-position? cbip)
#t
> (define ctip (make-custom-textual-input-port "foo" (lambda a 0) #f #f #f))
> (port-has-port-position? ctip)
#t
> (define ctop (make-custom-textual-output-port "foo" (lambda a 0) #f #f #f))
> (port-has-port-position? ctop)
#t
> (define cbop (make-custom-binary-output-port "foo" (lambda a 0) #f #f #f))
> (port-has-port-position? cbop)
#t

[Derick Eddington (derick-eddington)]

Also related:

> (define cbip (make-custom-binary-input-port "foo" (lambda a 0) #f #f #f))
> (port-position cbip)
0
>

[Abdulaziz Ghuloum (aghuloum)]

Fixed in 1670.