From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Sun, 26 Mar 1995 16:46:00 +0000 (+0000)
Subject: Adjusted to make run for longer.
X-Git-Tag: 20090517-FFI~6511
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7e030d832f3c5412d16e5e9e36fa1cd1ab4d2ef2;p=mit-scheme.git

Adjusted to make run for longer.
---

diff --git a/v8/src/bench/dderiv.scm b/v8/src/bench/dderiv.scm
index ad1e5abea..aa83d94de 100644
--- a/v8/src/bench/dderiv.scm
+++ b/v8/src/bench/dderiv.scm
@@ -74,7 +74,7 @@
  
 (define (run)
   (do ((i 0 (+ i 1)))
-      ((= i 5000))			; 1000 in original
+      ((= i 1000))
     (dderiv '(_+ (_* 3 x x) (_* a x x) (_* b x) 5))
     (dderiv '(_+ (_* 3 x x) (_* a x x) (_* b x) 5))
     (dderiv '(_+ (_* 3 x x) (_* a x x) (_* b x) 5))
@@ -88,4 +88,5 @@
  
 ;;; call:  (run)
  
-(lambda () (run))
+(lambda () (run) (run) (run) (run) (run))
+
diff --git a/v8/src/bench/destruct.scm b/v8/src/bench/destruct.scm
index 0de974138..8ac8a88a8 100644
--- a/v8/src/bench/destruct.scm
+++ b/v8/src/bench/destruct.scm
@@ -64,4 +64,6 @@
 ;;; call:  (destructive 600 50)
  
 (lambda ()
+  (destructive 1200 100)
+  (destructive 1200 100)
   (destructive 1200 100))
diff --git a/v8/src/bench/peval.scm b/v8/src/bench/peval.scm
index a84d4b9ef..ff62be80b 100644
--- a/v8/src/bench/peval.scm
+++ b/v8/src/bench/peval.scm
@@ -616,4 +616,4 @@
         (try example8
              (list '(a b c d e f g h i j k l m n o p q r s t u v w x y z)))))
 
-(lambda () (test))
+(lambda () (test) (test) (test))