guile/benchmark-suite/benchmarks/continuations.bm

(define (callee continuation)
  (continuation #t))

(benchmark "call/cc" 300
  (call-with-current-continuation callee))