ikarus/benchmarks.larceny/src/crash.scm

11 lines
162 B
Scheme

;;; CRASH - Test of crash condition.
(define (main . args)
(run-benchmark
"crash"
1
(lambda (result)
#t)
(lambda (f) (lambda () (f)))
#f))