ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-17 20:01:32 +03:00
Code Issues Packages Projects Releases Wiki Activity

add fake network acceleration

Browse Source
This commit is contained in:
Philip C Monk 2015-03-10 15:06:41 -04:00
parent 8771f59ff3
commit ceb3c30a45
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
arvo/ames.hoon
View File

@ -631,12 +631,12 @@
=^ gim ..weft wisp =^ gim ..weft wisp
:_ +>.$ :_ +>.$
^- (list rock) ^- (list rock)
=+ wit=(met 13 q.gim) =+ wit=(met ?:(fak.ton 18 13) q.gim)
?< =(0 wit) ?< =(0 wit)
?: =(1 wit) ?: =(1 wit)
=+ yup=(spit [our her] p.gim q.gim) =+ yup=(spit [our her] p.gim q.gim)
[yup ~] [yup ~]
=+ ruv=(rip 13 q.gim) =+ ruv=(rip ?:(fak.ton 18 13) q.gim)
=+ gom=(shaf %thug q.gim) =+ gom=(shaf %thug q.gim)
=+ inx=0 =+ inx=0
|- ^- (list rock) |- ^- (list rock)
@ -1409,7 +1409,7 @@
=+ [nix=0 rax=*(list ,@)] =+ [nix=0 rax=*(list ,@)]
|- ^- @ |- ^- @
?: =(p.duv nix) ?: =(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]) $(nix +(nix), rax [(need (~(get by q.duv) nix)) rax])
-- :: --la:ho:um:am -- :: --la:ho:um:am
:: ::