guile/gc-benchmarks/larceny/dummy.sch

; 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