gc-benchmarks/larceny/dummy.sch

   1 ; Dummy benchmark (for testing)
   2 ;
   3 ; $Id: dummy.sch,v 1.2 1999/07/12 18:03:37 lth Exp $
   4
   5 (define (dummy-benchmark . args)
   6   (run-benchmark "dummy"
   7                  1
   8                  (lambda ()
   9                    (collect)
  10                    (display "This is the dummy benchmark!")
  11                    (newline)
  12                    (display "My arguments are: ")
  13                    (display args)
  14                    (newline)
  15                    args)
  16                  (lambda (result)
  17                    (equal? result args))))
  18
  19 ; eof