From 7e030d832f3c5412d16e5e9e36fa1cd1ab4d2ef2 Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Sun, 26 Mar 1995 16:46:00 +0000
Subject: [PATCH] Adjusted to make run for longer.
---
v8/src/bench/dderiv.scm | 5 +++--
v8/src/bench/destruct.scm | 2 ++
v8/src/bench/peval.scm | 2 +-
3 files changed, 6 insertions(+), 3 deletions(-)
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))
--
2.25.1