From 7aa07153ce786208a54f4b871b30e2159a9bd785 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 19 Sep 2006 07:42:07 +0000 Subject: [PATCH] undo bad benchmark change svn: r4382 --- .../tests/mzscheme/benchmarks/shootout/cheapconcurrency.ss | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/collects/tests/mzscheme/benchmarks/shootout/cheapconcurrency.ss b/collects/tests/mzscheme/benchmarks/shootout/cheapconcurrency.ss index 8bfc389cc7..ea035a9298 100644 --- a/collects/tests/mzscheme/benchmarks/shootout/cheapconcurrency.ss +++ b/collects/tests/mzscheme/benchmarks/shootout/cheapconcurrency.ss @@ -14,8 +14,7 @@ (let ([n (string->number (vector-ref (current-command-line-arguments) 0))]) (let* ([start-ch (make-channel)] - [end-ch (parameterize ([current-thread-initial-stack-size 3]) - (generate start-ch 500))]) + [end-ch (generate start-ch 500)]) (let loop ([n n][total 0]) (if (zero? n) (printf "~a\n" total)