From c979e690a577ad5d7291f715c1578d8b38da17f0 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 31 Jan 2012 08:52:47 -0700 Subject: [PATCH] fix test to work right with imprecise GC --- collects/tests/racket/will.rktl | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/tests/racket/will.rktl b/collects/tests/racket/will.rktl index 7fdf51ed98..e87a5ddd5c 100644 --- a/collects/tests/racket/will.rktl +++ b/collects/tests/racket/will.rktl @@ -177,11 +177,12 @@ (for/list ([n 100]) (cons (make-weak-box (gensym)) (make-ephemeron (gensym) 10)))) + (define (num-or a b) (if (number? a) a b)) (collect-garbage) (define n (for/fold ([n 0]) ([p stuff]) (+ n - (or (weak-box-value (car p) 0) 1) - (or (ephemeron-value (cdr p) 0) 1)))) + (num-or (weak-box-value (car p) 0) 1) + (num-or (ephemeron-value (cdr p) 0) 1)))) (test #t < n 50)) ;; ----------------------------------------