urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-19 16:51:42 +03:00
Code Issues Packages Projects Releases Wiki Activity

ames: (debug build) fix yawn

Browse Source
This commit is contained in:
Ted Blackman 2022-05-27 15:54:38 -05:00
parent 062fbc71d7
commit f159f38f16
2 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3085,12 +3085,8 @@
++ on-yawn
|= [=ship =path]
^+ event-core
=/ omen
~| [%fine %invalid-namespace-path path]
(need (de-omen path))
=/ peer-core (pe-abed:fine-peer p.bem.omen)
?~ peer-core
~|(%no-ship-for-yawn !!)
=/ peer-core (pe-abed:fine-peer ship)
?~ peer-core ~|(%no-ship-for-yawn !!)
pe-abet:(pe-yawn:u.peer-core path)
::
++ on-take-wake
@ -3149,7 +3145,7 @@
:: TODO: move to hoon.hoon
::
++ gum
~/ %gum
::~/ %gum
|= biz=(list byts)
^- byts
:- (roll biz |=([[wid=@ *] acc=@] (add wid acc)))
@ -3206,8 +3202,10 @@
?~ data sig
(cat 9 sig (jam data))
::
?> (lte len.hunk 16.384)
=/ top +((min (met 13 mes) (add [lop len]:hunk)))
=/ num lop.hunk
?> (lth num top)
=| res=(list @uxmeow)
|- ^+ res
?: =(num top) (flop res)

18
pkg/arvo/sys/vane/clay.hoon
View File

@ -443,7 +443,7 @@
::
|%
++ scry-timeout-time ~m1
++ scry-retry-time ~m30
++ scry-retry-time ~s0
:: +sort-by-head: sorts alphabetically using the head of each element
::
++ sort-by-head
@ -3062,9 +3062,11 @@
%. [hen her u.nux [syd ~]]
send-over-ames(ref `(unit rind)`ref) :: XX TMI
%- emil
=/ =wire (request-wire kind.u.busy.sat her syd u.nux)
:~ [hen %pass wire %a %yawn her path.u.busy.sat]
[hen %pass wire %b %rest time.u.busy.sat]
=* bus u.busy.sat
=/ =wire (request-wire kind.bus her syd u.nux)
~& %cancel-request-yawn
:~ [hen %pass wire %a %yawn her path.bus]
[hen %pass wire %b %rest time.bus]
==
::
:: Handles a request.
@ -3104,12 +3106,12 @@
=. ..retry-with-ames
=< ?>(?=(^ ref) .)
~| [%strange-retry-not-scry her syd inx busy.sat -.rave.sat]
?> ?=([~ ^] busy.sat)
=/ bus ?>(?=([~ ^] busy.sat) u.busy.sat)
=/ =wire (request-wire kind her syd inx)
=/ =path path.u.busy.sat
%- emil
:~ [hen %pass wire %b %rest time.u.busy.sat]
[hen %pass wire %a %yawn her path]
~& %retry-with-ames-yawn
:~ [hen %pass wire %b %rest time.bus]
[hen %pass wire %a %yawn her path.bus]
==
:: re-send over ames
::