Re: [Chicken-users] Win32 Threading Issue

[Graham Fawcett]

On Thu, Mar 27, 2008 at 6:12 PM, Raymond Medeiros
<address@hidden> wrote:
>
>  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?

Just curious, in what way doesn't it work?
Graham

>
>  (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
>  address@hidden
>  http://lists.nongnu.org/mailman/listinfo/chicken-users
>