Re: [Chicken-users] Calling out to C causing hang

[Joerg F. Wittenberger]

> The code above locks CSI up after after 6 events. The following code
> works for ever (well, for a long time until I've quit):
> 
> (define (main)
>   (let* ((d (simplex:open-display))
>                (window (simplex:create-window
>                                 d 0 0 640 480 "test")))
>       (let loop ()
>         (gc)
>         (simplex:do-event d)
>         (loop))))
> 
> All I've added is a (gc). If I add the (gc) after the call to DO-EVENT then 
> it 
> still locks up. It must be before. Other things work other than GC. For 
> example a simple DISPLAY but I'm guessing this eventually triggers a GC and 
> that's why it works. 
> 
> Any thoughts why this might be occurring? 

Not exactly, but I remember that at one point I had a simillar lock
up, which I've not been able to debug.  Well, my method of debugging
is to augment the code with display's.  Hm.  :-/

I just can't remember now, where I've seen the problem.

/Jörg

-- 
The worst of harm may often result from the best of intentions.