[gambit-list] Tcp server error?
David St-Hilaire
sthilaid at iro.umontreal.ca
Mon Aug 24 13:59:47 EDT 2009
vasil wrote:
> Try this code:
>
> (define (tcp-server-test)
> (let ((p (read (open-tcp-server (list server-address: "*:2000"
> reuse-address: #t)))))
> (pp (read p))
> (write 'yea! p)
> (force-output p)
> (close-port p)))
>
>
>
Thanks alot Vasil! Its working perfectly. Althought, I'm not sure what
was wrong with the code I submitted. O_o
--
David
More information about the Gambit-list
mailing list