
(define-module (benchmarks continuations)
  :use-module (benchmark-suite lib))

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

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