From a61ea18ad7edb16a15c1b6178558b8913cda5bbe Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 1 Aug 2012 10:51:37 -0700
Subject: [PATCH] benchmark.yield: testing lots of yields.

---
 extra/benchmark/yield/yield.factor | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 extra/benchmark/yield/yield.factor

diff --git a/extra/benchmark/yield/yield.factor b/extra/benchmark/yield/yield.factor
new file mode 100644
index 0000000000..51c5cddfcf
--- /dev/null
+++ b/extra/benchmark/yield/yield.factor
@@ -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