mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

gc-benchmarks: Adapt `gcold.scm' so that if conforms to the framework.

Browse source 
* gc-benchmarks/larceny/gcold.scm (main): Rename to `gcold-benchmark'.
  (GCOld): Fix the order of the predicate and run-maker.
This commit is contained in:
Ludovic Courtès 2008-11-11 21:01:40 +01:00
parent ecdbb582ff
commit c9d15b0583
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
gc-benchmarks/larceny/gcold.scm
View file

@ -356,12 +356,12 @@
(run-benchmark "GCOld" (run-benchmark "GCOld"
1 1
(lambda (result) #t)
(lambda () (lambda ()
(lambda () (lambda ()
(do ((step 0 (+ step 1))) (do ((step 0 (+ step 1)))
((>= step steps)) ((>= step steps))
(doStep MEG))))) (doStep MEG))))
(lambda (result) #t))
(checkTrees) (checkTrees)
@ -380,5 +380,7 @@
(+ mutatorSum (vector-length aexport)))) (+ mutatorSum (vector-length aexport))))
(define (main . args) (define (gcold-benchmark . args)
(define gcold-iters 1)
(GCOld 25 0 10 10 gcold-iters)) (GCOld 25 0 10 10 gcold-iters))