[Chicken-users] output-port? returning bad value

[kruhft]

Felix,

I'm playing around a bit with chicken lately and noticed output-port?
returns 0 instead of #f when the port is closed.  Here is a log from
the interpretor:

>>> >>> (nntp-connect news nntp-port)
Connecting to "news" on port 119
...>>> (input-port? nntp-in)
#t
>>> (input-port? nntp-out)
#f
>>> (output-port? nntp-in)
#f
>>> (output-port? nntp-out)
#t
>>> (close-input-port nntp-in)
>>> (close-output-port nntp-out)
>>> (input-port? nntp-in)
#f
>>> (input-port? nntp-out)
#f
>>> (output-port? nntp-in)
0
>>> (output-port? nntp-out)
0

Here is nntp connect:

(define nntp-connect
  (lambda (server port)
    (cond
     ((not (string? server)) (print "server must be a string"))
     (else
      (printf "Connecting to ~S on port ~S~%..." server port)
      (define-values (nntp-in nntp-out) (tcp-connect server port))))))

I'm new to scheme but this doesn't look like correct behaviour to me
so I thought I would let you know.

-- 
burton samograd
address@hidden
http://kruhftwerk.dyndns.org