benchmark-suite/benchmarks/continuations.bm

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