From a5f877f95d8bab3af67bd54f454e851e2e474fd1 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 7 Jun 2020 06:25:14 -0600
Subject: [PATCH] repair a hashtable test

original commit: 021e4e59474034a45c46fe51f4cd6c7ba2305554
---
 mats/hash.ms | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/mats/hash.ms b/mats/hash.ms
index 92b8324949..a61f7c7643 100644
--- a/mats/hash.ms
+++ b/mats/hash.ms
@@ -1674,7 +1674,10 @@
           [wht (make-weak-eq-hashtable)]
           [eht (make-ephemeron-eq-hashtable)])
       (let ([ls2 (map (lambda (a1) (eq-hashtable-cell ht (car a1) (cdr a1))) ls1)]
-            [ls2-2 (map (lambda (a1) (eq-hashtable-try-atomic-cell ht (car a1) (cdr a1))) ls1)]
+            [ls2-2 (map (lambda (a1) (let loop ()
+                                       (define c (eq-hashtable-try-atomic-cell ht (car a1) (cdr a1)))
+                                       (or c (loop))))
+                        ls1)]
             [ls3 (map (lambda (a1) (hashtable-cell wht (car a1) (cdr a1))) ls1)]
             [ls4 (map (lambda (a1) (hashtable-cell eht (car a1) (cdr a1))) ls1)])
         (let ([ls2* (map (lambda (a1) (eq-hashtable-ref-cell ht (car a1))) ls1)]