Hello! Neil Jerram <[email protected]> writes:
> Thanks! And here's the corresponding patch for master. It's slightly > different, because scm_join_thread_timed in master allows for the join > attempt timing out and should return a special timeout value in that > case. Also I had to fix another problem, wait-condition-variable > leaving asyncs blocked, before I could reproduce the > scm_join_thread_timed issue in threads.test, so a patch for that > problem is attached too. Cool, thank you! > +(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? Thanks, Ludo'.
