From b320a1a1141eebbe4cb3ae0ef10ddce9cf491682 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 28 Mar 2021 20:25:45 -0600 Subject: [PATCH] test repair related to spurious CAS failure --- pkgs/racket-test/tests/future/fsema-lock.rkt | 1 + 1 file changed, 1 insertion(+) diff --git a/pkgs/racket-test/tests/future/fsema-lock.rkt b/pkgs/racket-test/tests/future/fsema-lock.rkt index de11e0246d..f7c46c7000 100644 --- 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)