adjust run length of short R5RS benchmarks

collects/tests/racket/benchmarks/common/conform.sch

@@ -612,7 +612,7 @@
 ;(go)
 ;(exit)
 
-(time (let loop ((n 10))
+(time (let loop ((n 100))
         (if (zero? n)
             'done
             (begin

collects/tests/racket/benchmarks/common/destruct.sch

@@ -62,7 +62,7 @@
 ;;; call:  (destructive 600 50)
 
 (let ((input (with-input-from-file "input.txt" read)))
-  (time (let loop ((n 10) (v 0))
+  (time (let loop ((n 100) (v 0))
           (if (zero? n)
               'v
               (loop (- n 1)

collects/tests/racket/benchmarks/common/peval.sch

@@ -627,7 +627,7 @@
 
 (let ((input (with-input-from-file "input.txt" read)))
   (time
-   (let loop ((n 60) (v 0))
+   (let loop ((n 600) (v 0))
      (if (zero? n)
          v
          (loop (- n 1) (test (if input 0 17)))))))

collects/tests/racket/benchmarks/common/scheme.sch

@@ -1071,7 +1071,7 @@
 
 (let ((input (with-input-from-file "input.txt" read)))
   (time
-   (let loop ((n 3000) (v 0))
+   (let loop ((n 30000) (v 0))
      (if (zero? n)
          v
          (loop (- n 1) (scheme-eval (if input expr1 '(+ 1 2))))))))

collects/tests/racket/benchmarks/common/scheme2.sch

@@ -1083,7 +1083,7 @@
 
 (let ((input (with-input-from-file "input.txt" read)))
   (time
-   (let loop ((n 3000) (v 0))
+   (let loop ((n 30000) (v 0))
      (if (zero? n)
          v
          (loop (- n 1) (scheme-eval (if input expr1 '(+ 1 2))))))))