factor/extra/benchmark/continuations/continuations.factor

USING: math kernel continuations ;
IN: benchmark.continuations

: continuations-main ( -- )
    100000 [ drop [ continue ] callcc0 ] each-integer ;

MAIN: continuations-main
Initial import 2007-09-20 18:09:08 -04:00			`USING: math kernel continuations ;`
			`IN: benchmark.continuations`

Fixing everything for mandatory stack effects 2008-06-09 03:14:14 -04:00			`: continuations-main ( -- )`
Initial import 2007-09-20 18:09:08 -04:00			`100000 [ drop [ continue ] callcc0 ] each-integer ;`

			`MAIN: continuations-main`