diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2008-11-11 21:01:40 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2009-01-12 23:31:50 +0100 |
| commit | 1c14d7671da008cc94590031b48c236d038fa3b1 (patch) | |
| tree | 0ebb1bbba8edefbdb2c703dcd6f1105a8e53bfa0 /gc-benchmarks | |
| parent | 83e3ac9475ee0bf0566c897f337b4f90d54a7c8f (diff) | |
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.
Diffstat (limited to 'gc-benchmarks')
| -rw-r--r-- | gc-benchmarks/larceny/gcold.scm | 8 |
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)) |