Thread test sometimes fails

[lassik]

This test sometimes succeeds, sometimes fails, at least on Mac:

==== Testing Threads  ...                                        failed
Errors found in this section:
test parameter.2 on (let ((th1 (make-thread (lambda () (parameterize ((p 4)) (thread-yield!) (set! *thr1-val* (p)))))) (th2 (make-thread (lambda () (parameterize ((p 5)) (thread-yie
ld!) (set! *thr2-val* (p))))))) (thread-start! th1) (thread-start! th2) (thread-join! th1) (thread-join! th2) (list (p) *thr1-val* *thr2-val*)) expected (3 4 5) but got (4 5 3)

[egallesio]

Argh, I hate this one. I thought that it was corrected. (I had this problem a long time ago).