[Chicken-users] Win32 Threading Issue

[Raymond Medeiros]

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))