59047043 NJ |
1 | |
2 | (define-module (benchmarks continuations) |
3 | :use-module (benchmark-suite lib)) |
4 | |
02378956 DH |
5 | (define (callee continuation) |
6 | (continuation #t)) |
7 | |
9084db99 |
8 | (benchmark "call/cc" 12000 |
02378956 |
9 | (call-with-current-continuation callee)) |