summaryrefslogtreecommitdiff
path: root/gc-benchmarks/larceny/dummy.sch
blob: 021756e69acd6f8fd2b1b66f51e4e02fd7311704 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
; 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