Commit | Line | Data |
---|---|---|
c1d1d824 LC |
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 |