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