Adjusted to make run for longer.

diff --git a/v8/src/bench/dderiv.scm b/v8/src/bench/dderiv.scm
index ad1e5abea03ebb8ca91683c25024be8ca0f249d7..aa83d94de51729345ae13501f8a30e7feafd019c 100644 (file)
--- 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 0de974138aee795cab8aaf3b88fbd00d9a119f41..8ac8a88a8f8e94308a241d5f5fa3fcb097ddd655 100644 (file)
--- 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 a84d4b9efa26fade0ff14466d48b8d0bd0322d3e..ff62be80b89139582f56cb883afcfc362f7baef4 100644 (file)
--- 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))