test repair related to spurious CAS failure

2021-03-28 20:25:45 -06:00 · 2021-03-28 20:25:45 -06:00 · b320a1a114
commit b320a1a114
parent 920e3dbde5
1 changed files with 1 additions and 0 deletions
--- a/pkgs/racket-test/tests/future/fsema-lock.rkt
+++ b/pkgs/racket-test/tests/future/fsema-lock.rkt
@ -7,6 +7,7 @@
 ;; run if it takes a lock)

 (define (box-cas!* b old new)
+  (memory-order-release) ; makes spurious-failure check meaningful (I think)
  (or (box-cas! b old new)
      ;; Try again if failure looks spurious:
      (and (eq? (unbox b) old)