[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Chicken-users] output-port? returning bad value
From: |
kruhft |
Subject: |
[Chicken-users] output-port? returning bad value |
Date: |
26 Apr 2003 14:32:28 -0700 |
User-agent: |
Gnus/5.09 (Gnus v5.9.0) Emacs/21.3 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Chicken-users] output-port? returning bad value,
kruhft <=