benchmark.yield: testing lots of yields.

db4
John Benediktsson 2012-08-01 10:51:37 -07:00
parent 04dd210b37
commit a61ea18ad7
1 changed files with 9 additions and 0 deletions

View File

@ -0,0 +1,9 @@
! Copyright (C) 2012 John Benediktsson
! See http://factorcode.org/license.txt for BSD license.
USING: math threads ;
IN: benchmark.yield
: yield-benchmark ( -- )
100,000 [ yield ] times ;
MAIN: yield-benchmark