From 288e3c7d39d7984979561dbd8e1432c8c5012707 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 20 Oct 2023 07:56:23 -0600 Subject: [PATCH] repair tests for cmg=1 (#737) In attempting to improve some tests, commit a4654e4ee lost two adjustments to `collect-maximum-generation` to ensure that tests work when the parameter is set to 1 (as in some modes that are tried by `make test-more`). --- mats/4.ms | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/mats/4.ms b/mats/4.ms index 0ade9f937..c0e18a018 100644 --- a/mats/4.ms +++ b/mats/4.ms @@ -4821,7 +4821,8 @@ (bwp-object? (car x)))))) ;; check interaction of weak pairs, generations, and specific target generations for collection (with-interrupts-disabled - (parameterize ([#%$enable-check-heap #t]) + (parameterize ([#%$enable-check-heap #t] + [collect-maximum-generation (max (collect-maximum-generation) 2)]) (let ([key "key"]) (let ([e (weak-cons key #f)]) (collect 0 1 1) @@ -5010,7 +5011,8 @@ ;; Check interaction of mutation and incremental generation promotion (with-interrupts-disabled - (parameterize ([#%$enable-check-heap #t]) + (parameterize ([#%$enable-check-heap #t] + [collect-maximum-generation (max (collect-maximum-generation) 2)]) (let ([key "key"]) (let ([e (ephemeron-cons key #f)]) (collect 0 1 1)