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

clay: don't add lobe to wire to avoid flow leak

Browse Source
This commit is contained in:
Philip Monk 2022-05-18 20:54:10 -07:00
parent 637e2c1ff8
commit 7f63f548f5
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3176,6 +3176,8 @@
?> ?=(%nako p.r.u.rut) ?> ?=(%nako p.r.u.rut)
=/ nako ;;(nako q.r.u.rut) =/ nako ;;(nako q.r.u.rut)
=/ missing (missing-lobes nako) =/ missing (missing-lobes nako)
:: must be appended because we delete off front
::
=. need.sat (welp need.sat ~(tap in missing)) =. need.sat (welp need.sat ~(tap in missing))
=. nako.sat (~(put to nako.sat) ~ nako) =. nako.sat (~(put to nako.sat) ~ nako)
work work
@ -3206,17 +3208,16 @@
?& !(~(has by lat.ran) lobe.i.lobes) ?& !(~(has by lat.ran) lobe.i.lobes)
!=([~ %|] +:(~(fit of norm) path.i.lobes)) !=([~ %|] +:(~(fit of norm) path.i.lobes))
== ==
~& > [%missing path.i.lobes lobe.i.lobes (~(fit of norm) path.i.lobes)]
(~(put in missing) lobe.i.lobes) (~(put in missing) lobe.i.lobes)
lobe-loop(lobes t.lobes) lobe-loop(lobes t.lobes)
:: ::
:: Receive backfill response :: Receive backfill response
:: ::
++ take-backfill ++ take-backfill
|= [lob=(unit lobe) =fell] |= =fell
^+ ..abet ^+ ..abet
?: lost ..abet ?: lost ..abet
=? need.sat &(?=(^ need.sat) =(`i.need.sat lob)) t.need.sat =? need.sat ?=(^ need.sat) t.need.sat
=. ..park =>((take-fell fell) ?>(?=(^ ref) .)) =. ..park =>((take-fell fell) ?>(?=(^ ref) .))
work(busy.sat |) work(busy.sat |)
:: ::
@ -3259,7 +3260,7 @@
:: TODO: upgrade to %1 when most ships have upgaded :: TODO: upgrade to %1 when most ships have upgaded
:: ::
=/ =fill [%0 syd lobe] =/ =fill [%0 syd lobe]
=/ =wire /back-index/(scot %p her)/[syd]/(scot %ud inx)/(scot %uv lobe) =/ =wire /back-index/(scot %p her)/[syd]/(scot %ud inx)
=/ =path [%backfill syd (scot %ud inx) ~] =/ =path [%backfill syd (scot %ud inx) ~]
=. ..foreign-update =. ..foreign-update
=< ?>(?=(^ ref) .) =< ?>(?=(^ ref) .)
@ -5170,14 +5171,10 @@
=/ her=ship (slav %p i.t.tea) =/ her=ship (slav %p i.t.tea)
=/ =desk (slav %tas i.t.t.tea) =/ =desk (slav %tas i.t.t.tea)
=/ index=@ud (slav %ud i.t.t.t.tea) =/ index=@ud (slav %ud i.t.t.t.tea)
=/ lob=(unit lobe)
?~ t.t.t.t.tea
~
`(slav %uv i.t.t.t.t.tea)
:: ::
=^ mos ruf =^ mos ruf
=/ den ((de now rof hen ruf) her desk) =/ den ((de now rof hen ruf) her desk)
abet:abet:(take-backfill:(foreign-update:den index) lob fell) abet:abet:(take-backfill:(foreign-update:den index) fell)
[mos ..^$] [mos ..^$]
== ==
:: ::