[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