From 20bff84c88dfca59a8b7ff1c01ef092b78564174 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 31 Dec 2003 16:24:51 +0000 Subject: [PATCH] . original commit: 79f1772662b7eea79061d0e8a7f51f39b4c295fe --- collects/tests/mred/item.ss | 3 ++- collects/tests/mred/mem.ss | 4 ++-- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/collects/tests/mred/item.ss b/collects/tests/mred/item.ss index 563c4e8c..b26741f4 100644 --- a/collects/tests/mred/item.ss +++ b/collects/tests/mred/item.ss @@ -1834,7 +1834,8 @@ (define p (make-object tab-panel% '("App&le" "B&anana" "Co&conut") f (lambda (p e) - (send m set-label (format "Selected: ~a" (send p get-selection)))))) + (send m set-label (format "Selected: ~a" (send p get-selection)))) + '())) ; could try 'no-border (define count 3) (define m (make-object message% (format "Selected: ~a" (send p get-selection)) p)) diff --git a/collects/tests/mred/mem.ss b/collects/tests/mred/mem.ss index 7b25821c..f5a434a3 100644 --- a/collects/tests/mred/mem.ss +++ b/collects/tests/mred/mem.ss @@ -5,8 +5,8 @@ (define source-dir (current-load-relative-directory)) -(define num-times 8) -(define num-threads 3) +(define num-times 2) +(define num-threads 2) (define dump-stats? #f)