can someone give me a reasonable explanation as to why this would not work on Win32 but works properly on Linux?
what am i missing here?
(use tcp-server) (thread-start! (make-thread (lambda () ((make-tcp-server (tcp-listen 9000) (lambda () (write-line (conc "response: " (read))))) #t)) )) (thread-yield!) (define send-data (lambda (ip port msg) (define-values (i o) (tcp-connect (->string ip) port)) (write msg o) (let ((result (read-line i))) (close-input-port i) (close-output-port o) result))) (letrec ((loop (lambda () (pp (send-data "127.0.0.1" 9000 "hi")) (loop)))) (loop)) _______________________________________________ Chicken-users mailing list Chicken-users@nongnu.org http://lists.nongnu.org/mailman/listinfo/chicken-users