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:
parent
be7c7755b2
commit
c89f885578
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user