benchmark.ant: use ?adjoin.

diff --git a/extra/benchmark/ant/ant.factor b/extra/benchmark/ant/ant.factor
index 7a0e34b54b7e99422c968d219ae3a4d549c65605..1946a25a1de466592f1a72210cdb5bc9f384a438 100644 (file)
--- a/extra/benchmark/ant/ant.factor
+++ b/extra/benchmark/ant/ant.factor
@@ -43,8 +43,7 @@ C: <point> point
 
     [ stack empty? ] [
         stack pop :> p
-        p seen in? [
-            p seen adjoin
+        p seen ?adjoin [
             p walkable? [
                 total 1 + total!
                 p clone [ 1 + ] change-x stack push
@@ -52,7 +51,7 @@ C: <point> point
                 p clone [ 1 + ] change-y stack push
                 p clone [ 1 - ] change-y stack push
             ] when
-        ] unless
+        ] when
     ] until total 148848 assert= ;
 
 MAIN: ant-benchmark