(define-module (benchmarks continuations) :use-module (benchmark-suite lib)) (define (callee continuation) (continuation #t)) (benchmark "call/cc" 12000 (call-with-current-continuation callee))
