repair a test

2021-05-05 07:18:16 -06:00 · 2021-05-05 07:18:16 -06:00 · f5306039cb
commit f5306039cb
parent d12f1f55ad
1 changed files with 4 additions and 3 deletions
--- a/racket/src/ChezScheme/mats/7.ms
+++ b/racket/src/ChezScheme/mats/7.ms
@ -6142,9 +6142,10 @@ evaluating module init
   (>= (collections) 0)
   (>= (bytes-deallocated) 0)
   (let ([b (bytes-deallocated)] [c (collections)])
-     (let ([x (make-list 10 'a)])
-       (pretty-print x))
-     (collect)
+     (with-interrupts-disabled ; ensure allocated list stays in generation 0 until printed
+      (let ([x (make-list 10 'a)])
+        (pretty-print x))
+      (collect))
     (and (> (collections) c) (> (bytes-deallocated) b)))
   (>= (bytes-allocated #f #f) 0)
   (andmap (lambda (space)