]> git.donarmstrong.com Git - lilypond.git/blob - guile18/benchmark-suite/benchmarks/continuations.bm
New upstream version 2.19.65
[lilypond.git] / guile18 / benchmark-suite / benchmarks / continuations.bm
1 (define (callee continuation)
2   (continuation #t))
3
4 (benchmark "call/cc" 300
5   (call-with-current-continuation callee))