suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

repair a hashtable test

Browse Source 
original commit: 021e4e59474034a45c46fe51f4cd6c7ba2305554
This commit is contained in:
Matthew Flatt 2020-06-07 06:25:14 -06:00
parent 6395bd92ff
commit a5f877f95d
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
mats/hash.ms
View File

@ -1674,7 +1674,10 @@
[wht (make-weak-eq-hashtable)] [wht (make-weak-eq-hashtable)]
[eht (make-ephemeron-eq-hashtable)]) [eht (make-ephemeron-eq-hashtable)])
(let ([ls2 (map (lambda (a1) (eq-hashtable-cell ht (car a1) (cdr a1))) ls1)] (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)] [ls3 (map (lambda (a1) (hashtable-cell wht (car a1) (cdr a1))) ls1)]
[ls4 (map (lambda (a1) (hashtable-cell eht (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)] (let ([ls2* (map (lambda (a1) (eq-hashtable-ref-cell ht (car a1))) ls1)]