Re: [Chicken-users] 4.7.3 development snapshot

[Felix]

> There is one more "strange observation":
> 
> A small snipped of code, which happend to work for several years:
> 
> (define (tcp-get-next-client tcpl)
>  (##sys#check-structure tcpl 'tcp-listener)
>  (let ((fd (##sys#slot tcpl 1))
>       (tma (tcp-accept-timeout)))
> 
> short after the "tma" is passed to ##sys#thread-block-for-timeout!
> if - any only if - tma != #f.  In practice it is #f.
> 
> Compiled with the 4.7.3 the code branch for tma != #f was suddenly
> executed. Strange however: as soon as I wraped the call
> (tcp-accept-timeout) into my usual "(debug label value)" [which sends
> the label and value to the logfile and returns the value] I saw the
> correct #f in the logfile and everything worked again.

I think the code that does the test is what's of interest here.
Can you show it to us?


cheers,
felix