Chez Scheme: fix mat that failed in bullyx with cmg=1
This commit is contained in:
parent
b090edbe9d
commit
17bc9b2b33
|
@ -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)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user