From c9d15b05833feccf1cbc644ab534b9beeaa5b744 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Tue, 11 Nov 2008 21:01:40 +0100 Subject: [PATCH] gc-benchmarks: Adapt `gcold.scm' so that if conforms to the framework. * gc-benchmarks/larceny/gcold.scm (main): Rename to `gcold-benchmark'. (GCOld): Fix the order of the predicate and run-maker. --- gc-benchmarks/larceny/gcold.scm | 8 +++++--- 1 file 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))