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
|
(let ([th (fork-thread
|
||||||
(lambda ()
|
(lambda ()
|
||||||
(let ([bstr (make-bytevector N)])
|
(let ([bstr (make-bytevector N)])
|
||||||
(box-cas! ready #f 'go)
|
(set-box! ready 'go)
|
||||||
;; Block so that thread becomes deactivated
|
;; Block so that thread becomes deactivated
|
||||||
(mutex-acquire m)
|
(mutex-acquire m)
|
||||||
(mutex-release m)
|
(mutex-release m)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user