Hi all!
Can anyone help me pinpointing what is wrong with the follow tcp server code?
(define (tcp-server-test) (let ((p (read (open-tcp-server (list port-number: 20000 reuse-address: #t))))) (pp (read p)) (write 'yea! p) (force-output p) (close-port p)))
(tcp-server-test)
If run this code inside a console and, from another console I run the following client code:
(define (tcp-test) (let ((connection (open-tcp-client (list server-address: "192.168.60.239" port-number: 20000))))
(write 'allo!! connection) (force-output connection) (read connection) (close-port connection)))
(tcp-test)
I always get a "broken pipe" error. Note that the ip address is correct. I tried to replace the server with the good old netcat and it works just fine (i.e. that the client successfully connects to the nc server). Is anything wrong with the server code?
Thanks!
-- David