summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--gc-benchmarks/larceny/gcold.scm8
1 files changed, 5 insertions, 3 deletions
diff --git a/gc-benchmarks/larceny/gcold.scm b/gc-benchmarks/larceny/gcold.scm
index 2dc3cc72c..36eee6b3b 100644
--- a/gc-benchmarks/larceny/gcold.scm
+++ b/gc-benchmarks/larceny/gcold.scm
@@ -356,12 +356,12 @@
(run-benchmark "GCOld"
1
- (lambda (result) #t)
(lambda ()
(lambda ()
(do ((step 0 (+ step 1)))
((>= step steps))
- (doStep MEG)))))
+ (doStep MEG))))
+ (lambda (result) #t))
(checkTrees)
@@ -380,5 +380,7 @@
(+ mutatorSum (vector-length aexport))))
-(define (main . args)
+(define (gcold-benchmark . args)
+ (define gcold-iters 1)
+
(GCOld 25 0 10 10 gcold-iters))