From ceb3c30a4521d74aea681e24eda03669d608c954 Mon Sep 17 00:00:00 2001
From: Philip C Monk <philip.monk@tlon.io>
Date: Tue, 10 Mar 2015 15:06:41 -0400
Subject: [PATCH] add fake network acceleration

---
 arvo/ames.hoon | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/arvo/ames.hoon b/arvo/ames.hoon
index 62d6de61b..8e8fc0a7c 100644
--- a/arvo/ames.hoon
+++ b/arvo/ames.hoon
@@ -631,12 +631,12 @@
             =^  gim  ..weft  wisp
             :_  +>.$
             ^-  (list rock)
-            =+  wit=(met 13 q.gim)
+            =+  wit=(met ?:(fak.ton 18 13) q.gim)
             ?<  =(0 wit)
             ?:  =(1 wit)
               =+  yup=(spit [our her] p.gim q.gim)
               [yup ~]
-            =+  ruv=(rip 13 q.gim)
+            =+  ruv=(rip ?:(fak.ton 18 13) q.gim)
             =+  gom=(shaf %thug q.gim)
             =+  inx=0
             |-  ^-  (list rock)
@@ -1409,7 +1409,7 @@
             =+  [nix=0 rax=*(list ,@)]
             |-  ^-  @
             ?:  =(p.duv nix)
-              (can 13 (turn (flop rax) |=(a=@ [1 a])))
+              (can ?:(fak.ton.fox 18 13) (turn (flop rax) |=(a=@ [1 a])))
             $(nix +(nix), rax [(need (~(get by q.duv) nix)) rax])
           --                                            ::  --la:ho:um:am
         ::