l...@gnu.org (Ludovic Courtès) writes:

>> +(define (asyncs-still-working?)
>> +  (let ((a #f))
>> +    (system-async-mark (lambda ()
>> +                     (set! a #t)))
>> +    (equal? '(a b c) '(a b c))
>> +    a))
>
> I guess `equal?' is here to trigger an `SCM_TICK', right?  Perhaps a
> comment could be added to make it explicit?

Good idea, I'll do that before pushing.

Thanks,
        Neil


Reply via email to