undo bad benchmark change

svn: r4382
2006-09-19 07:42:07 +00:00 · 2006-09-19 07:42:07 +00:00 · 7aa07153ce
commit 7aa07153ce
parent 2ddb89e85b
1 changed files with 1 additions and 2 deletions
--- 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)