From 3472d2c7bc898c93ef730b54a1bb384cd2e974a7 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 29 Jun 1998 14:04:17 +0000 Subject: [PATCH] use glob-def-value original commit: 719022909e9dd87f14e6a2502ab8ea8f2e15c83e --- collects/tests/mred/mem.ss | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/collects/tests/mred/mem.ss b/collects/tests/mred/mem.ss index 7353471e..b9ed0bc9 100644 --- a/collects/tests/mred/mem.ss +++ b/collects/tests/mred/mem.ss @@ -4,7 +4,7 @@ (define source-dir (current-load-relative-directory)) (define num-times 12) -(define num-threads 1) +(define num-threads 3) (define dump-stats? #t) @@ -36,10 +36,12 @@ (lambda (x) (void))]))) (when subwindows? - (define sub-collect-frame - (make-object wx:frame% null "sub-collect" -1 -1 200 200)) - (define sub-collect-panel - (make-object wx:panel% sub-collect-frame 0 0 100 100))) + (global-defined-value + 'sub-collect-frame + (make-object wx:frame% null "sub-collect" -1 -1 200 200)) + (global-defined-value + 'sub-collect-panel + (make-object wx:panel% sub-collect-frame 0 0 100 100))) (send sub-collect-frame show #t)