Chez Scheme: fix test involving CAS

Replace an unnecessary `box-cas!` in a test with `set-box!`. The use
of `box-cas!` was wrong in that it didn't accomodate a spurious CAS
failure.
This commit is contained in:
Matthew Flatt 2021-02-27 10:46:27 -07:00
parent be7c7755b2
commit c89f885578

View File

@ -1113,7 +1113,7 @@
(let ([th (fork-thread
(lambda ()
(let ([bstr (make-bytevector N)])
(box-cas! ready #f 'go)
(set-box! ready 'go)
;; Block so that thread becomes deactivated
(mutex-acquire m)
(mutex-release m)