mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 11:50:28 +02:00
c1d1d8247c
These GPLv2+-licensed GC benchmarks are available from http://www.ccs.neu.edu/home/will/GC/sourcecode.html .
19 lines
533 B
Scheme
19 lines
533 B
Scheme
; Dummy benchmark (for testing)
|
|
;
|
|
; $Id: dummy.sch,v 1.2 1999/07/12 18:03:37 lth Exp $
|
|
|
|
(define (dummy-benchmark . args)
|
|
(run-benchmark "dummy"
|
|
1
|
|
(lambda ()
|
|
(collect)
|
|
(display "This is the dummy benchmark!")
|
|
(newline)
|
|
(display "My arguments are: ")
|
|
(display args)
|
|
(newline)
|
|
args)
|
|
(lambda (result)
|
|
(equal? result args))))
|
|
|
|
; eof
|