summaryrefslogtreecommitdiff
path: root/benchmark-suite/benchmarks/continuations.bm
blob: 3ca498da5d22b00bc7b95ff160254180ceae82ae (plain)
1
2
3
4
5
6
7
8
9

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

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

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