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

Merge branch 'la/isaac-fix' (#4434)

Browse Source 
* origin/la/isaac-fix:
  contact-push-hook: speed up asymptotics by only doing a fixed number of scries

Signed-off-by: Matilde Park <matilde.park@gmail.com>
This commit is contained in:
Matilde Park 2021-02-12 17:42:47 -05:00
commit 7c3f0c8f54
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkg/arvo/app/contact-push-hook.hoon
View File

@ -94,16 +94,18 @@
++ rolo ++ rolo
^- rolodex:store ^- rolodex:store
=/ ugroup (scry-group:grp resource) =/ ugroup (scry-group:grp resource)
=/ =rolodex:store
(scry-for:con rolodex:store /all)
%- ~(gas by *rolodex:store) %- ~(gas by *rolodex:store)
?~ ugroup ?~ ugroup
=/ c=(unit contact:store) (get-contact:con our.bowl) =/ c=(unit contact:store) (~(get by rolodex) our.bowl)
?~ c ?~ c
[our.bowl *contact:store]~ [our.bowl *contact:store]~
[our.bowl u.c]~ [our.bowl u.c]~
%+ murn ~(tap in (members:grp resource)) %+ murn ~(tap in (members:grp resource))
|= s=ship |= s=ship
^- (unit [ship contact:store]) ^- (unit [ship contact:store])
=/ c=(unit contact:store) (get-contact:con s) =/ c=(unit contact:store) (~(get by rolodex) s)
?~(c ~ `[s u.c]) ?~(c ~ `[s u.c])
-- --
:: ::