blob: 3ca498da5d22b00bc7b95ff160254180ceae82ae (
plain)
1
2
3
4
5
6
7
8
9
|
(define-module (benchmarks continuations)
:use-module (benchmark-suite lib))
(define (callee continuation)
(continuation #t))
(benchmark "call/cc" 12000
(call-with-current-continuation callee))
|