chicken-users
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Chicken-users] Win32 Threading Issue


From: Raymond Medeiros
Subject: [Chicken-users] Win32 Threading Issue
Date: Thu, 27 Mar 2008 18:12:15 -0400


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





reply via email to

[Prev in Thread] Current Thread [Next in Thread]