From 5cf0652db4f19a0ed065aa1650ac564db1b97203 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 25 Sep 2011 19:08:56 -0700
Subject: [PATCH] benchmark.ant: needed a MAIN.

---
 extra/benchmark/ant/ant.factor | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/extra/benchmark/ant/ant.factor b/extra/benchmark/ant/ant.factor
index e7e47b6066..d40cde3d23 100644
--- a/extra/benchmark/ant/ant.factor
+++ b/extra/benchmark/ant/ant.factor
@@ -35,7 +35,7 @@ STRUCT: point { x uint } { y uint } ;
 : walkable? ( point -- ? )
     [ x>> ] [ y>> ] bi [ sum-digits ] bi@ + 25 <= ; inline
 
-:: ant ( -- total )
+:: ant ( -- )
     200000 <hashtable> hash-set boa :> seen
     100000 <vector> :> stack
     0 :> total!
@@ -54,4 +54,6 @@ STRUCT: point { x uint } { y uint } ;
                 p clone [ 1 - ] change-y stack push
             ] when
         ] unless
-    ] until total ;
+    ] until total 148848 assert= ;
+
+MAIN: ant