From 3ec93ab8ec565bb4670d05977d1b2074df3874ec Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 26 Oct 1999 18:47:12 +0000 Subject: [PATCH] ... original commit: 0ad57397f1c431c64d97527cd199748a11b74d6b --- collects/tests/framework/mem.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/tests/framework/mem.ss b/collects/tests/framework/mem.ss index 1a779f44..41dcdb39 100644 --- a/collects/tests/framework/mem.ss +++ b/collects/tests/framework/mem.ss @@ -31,7 +31,7 @@ (lambda (boxl) (let* ([tag (first boxl)] [boxes (second boxl)] - [calc-results + [res (lambda () (foldl (lambda (b n) (if (weak-box-value b) (+ n 1) n)) 0 @@ -44,8 +44,8 @@ (make-object message% (format "~a: ~a of ~a~n" tag res ,mem-count) f))))) mem-boxes) (cond - [anything? (make-object button% "Close" (lambda x (send f show #f)) f)] - [else (make-object button% "NOTHING!" (lambda x (send f show #f)) f)]) + [anything? (make-object button% "Close" f (lambda x (send f show #f)))] + [else (make-object button% "NOTHING!" f (lambda x (send f show #f)))]) (send f show #t))))) (define (test-frame-allocate name %)