[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Chicken-users] Win32 Threading Issue
From: |
Graham Fawcett |
Subject: |
Re: [Chicken-users] Win32 Threading Issue |
Date: |
Fri, 28 Mar 2008 10:00:25 -0400 |
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
>