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

ames: rename etch-keen to etch-wail

Browse Source
This commit is contained in:
yosoyubik 2023-04-22 20:24:35 +02:00
parent c2f7f75492
commit 599eb6231b
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
pkg/arvo/sys/vane/ames.hoon
View File

@ -3756,7 +3756,7 @@
^- byts ^- byts
:- (roll biz |=([[wid=@ *] acc=@] (add wid acc))) :- (roll biz |=([[wid=@ *] acc=@] (add wid acc)))
(can 3 biz) (can 3 biz)
:: TODO: move +etch-peep/+etch-keen to %lull? :: TODO: move +etch-peep/+etch-wail to %lull?
++ etch-peep ++ etch-peep
|= [=path num=@ud] |= [=path num=@ud]
^- byts ^- byts
@ -3768,7 +3768,7 @@
wid^`@`pat :: namespace path wid^`@`pat :: namespace path
== ==
:: ::
++ etch-keen ++ etch-wail
|= [=path num=@ud] |= [=path num=@ud]
^- hoot ^- @ ^- hoot ^- @
=/ sic (mod life.ames-state 16) =/ sic (mod life.ames-state 16)
@ -3851,7 +3851,7 @@
++ fi-gauge (ga metrics.keen (wyt:fi-deq wan.keen)) ++ fi-gauge (ga metrics.keen (wyt:fi-deq wan.keen))
++ fi-wait |=(tim=@da (fi-pass-timer %b %wait tim)) ++ fi-wait |=(tim=@da (fi-pass-timer %b %wait tim))
++ fi-rest |=(tim=@da (fi-pass-timer %b %rest tim)) ++ fi-rest |=(tim=@da (fi-pass-timer %b %rest tim))
++ fi-etch-keen |=(frag=@ud (etch-keen fi-full-path frag)) ++ fi-etch-wail |=(frag=@ud (etch-wail fi-full-path frag))
++ fi-send ++ fi-send
|=(=hoot fine(event-core (send-blob for=| her `@ux`hoot))) |=(=hoot fine(event-core (send-blob for=| her `@ux`hoot)))
:: ::
@ -3867,7 +3867,7 @@
=. fine (fi-sub duct) =. fine (fi-sub duct)
?> =(num-fragments.keen 0) ?> =(num-fragments.keen 0)
=/ fra=@ 1 =/ fra=@ 1
=/ req=hoot (fi-etch-keen fra) =/ req=hoot (fi-etch-wail fra)
=/ =want [fra req last=now tries=1 skips=0] =/ =want [fra req last=now tries=1 skips=0]
=. wan.keen (cons:fi-deq *(pha ^want) want) =. wan.keen (cons:fi-deq *(pha ^want) want)
(fi-send req) (fi-send req)
@ -3982,7 +3982,7 @@
%+ turn (gulf 1 num.meow) %+ turn (gulf 1 num.meow)
|= fra=@ud |= fra=@ud
^- want ^- want
[fra (fi-etch-keen fra) now 0 0] [fra (fi-etch-wail fra) now 0 0]
:: +fi-continue: send packets based on normal congestion flow :: +fi-continue: send packets based on normal congestion flow
:: ::
++ fi-continue ++ fi-continue