ikarus/benchmarks.larceny/src/fail.scm

11 lines
173 B
Scheme
Raw Normal View History

;;; FAIL - Test of failure condition.
(define (main . args)
(run-benchmark
"fail"
1
(lambda (result)
(eq? result #t))
(lambda (f) (lambda () f))
#f))