[bpt/guile.git] / benchmark-suite / benchmarks / continuations.bm


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

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

(benchmark "call/cc" 12000
  (call-with-current-continuation callee))
Commit	Line	Data
59047043 NJ	1
	2	(define-module (benchmarks continuations)
	3	:use-module (benchmark-suite lib))
	4
02378956 DH	5	(define (callee continuation)
	6	(continuation #t))
	7
9084db99	8	(benchmark "call/cc" 12000
02378956	9	(call-with-current-continuation callee))