From c89f885578901d9976207d68fc90bdd13c36aacf Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 27 Feb 2021 10:46:27 -0700
Subject: [PATCH] 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.
---
 racket/src/ChezScheme/mats/misc.ms | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/racket/src/ChezScheme/mats/misc.ms b/racket/src/ChezScheme/mats/misc.ms
index 3c88348f38..50d46f36cc 100644
--- a/racket/src/ChezScheme/mats/misc.ms
+++ b/racket/src/ChezScheme/mats/misc.ms
@@ -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)