Chez Scheme: fix mat that failed in bullyx with cmg=1

This commit is contained in:
Jamie Taylor 2021-04-04 16:04:48 -04:00 committed by Matthew Flatt
parent b090edbe9d
commit 17bc9b2b33

View File

@ -4820,7 +4820,7 @@
;; ---------------------------------------- ;; ----------------------------------------
;; Check interaction of mutation and incremental generation promotion ;; Check interaction of mutation and incremental generation promotion
(with-interrupts-disabled (parameterize ([collect-request-handler void] [collect-maximum-generation (max (collect-maximum-generation) 2)])
(let ([key "key"]) (let ([key "key"])
(let ([e (ephemeron-cons key #f)]) (let ([e (ephemeron-cons key #f)])
(collect 0 1 1) (collect 0 1 1)