From 53b77247f01f793daceb90f75469e22f4e668ec1 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 1 Jun 2012 16:15:56 -0700
Subject: [PATCH] benchmark.busy-loop: adding a busy-loop "control" benchmark.

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

diff --git a/extra/benchmark/busy-loop/busy-loop.factor b/extra/benchmark/busy-loop/busy-loop.factor
new file mode 100644
index 0000000000..8632e7d2ea
--- /dev/null
+++ b/extra/benchmark/busy-loop/busy-loop.factor
@@ -0,0 +1,9 @@
+
+USING: kernel math ;
+
+IN: benchmark.busy-loop
+
+: busy-loop-benchmark ( -- )
+    1,000,000,000 [ 1 - dup 0 > ] loop drop ;
+
+MAIN: busy-loop-benchmark