]> gitweb.factorcode.org Git - factor.git/blob - extra/benchmark/continuations/continuations.factor
Fixing everything for mandatory stack effects
[factor.git] / extra / benchmark / continuations / continuations.factor
1 USING: math kernel continuations ;
2 IN: benchmark.continuations
3
4 : continuations-main ( -- )
5     100000 [ drop [ continue ] callcc0 ] each-integer ;
6
7 MAIN: continuations-main