From 19bb2f901f68884e38a1144e07f9735f4f62d2b4 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 7 Feb 2001 13:48:35 +0000 Subject: [PATCH] ... original commit: 490c71cdd168f377bec8d48cf0f87ea66e99d1eb --- collects/tests/framework/mem.ss | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/collects/tests/framework/mem.ss b/collects/tests/framework/mem.ss index 9fc2d049..368f2bd9 100644 --- a/collects/tests/framework/mem.ss +++ b/collects/tests/framework/mem.ss @@ -15,6 +15,8 @@ (,close o) (cons b (loop (- n 1))))]))]) (collect-garbage) + (collect-garbage) + (collect-garbage) (set! mem-boxes (cons (list ,tag new-boxes) mem-boxes))))) (define (done) @@ -24,6 +26,8 @@ (collect-garbage) (collect-garbage) (collect-garbage) + (collect-garbage) + (collect-garbage) (let ([f (make-object dialog% "Results")] [anything? #f]) (for-each @@ -38,6 +42,8 @@ (let loop ([tries 4]) (unless (zero? tries) (when (> (calc-results) 0) + (collect-garbage) + (collect-garbage) (collect-garbage) (loop (- tries 1))))) (let ([res (calc-results)])