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: add norm to +pick cache

Browse Source
This commit is contained in:
Philip Monk 2022-04-07 18:10:00 -07:00
parent 85fb3502c7
commit d71a685b91
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2064,7 +2064,7 @@
?> ?=(^ xap) ?> ?=(^ xap)
?. ?=(%hoon i.xap) ~ ?. ?=(%hoon i.xap) ~
:^ ~ (flop t.xap) %hoon :^ ~ (flop t.xap) %hoon
~| pax=path ~| [pax=pax p.dat]
?- -.dat ?- -.dat
%& (page-to-cord p.dat) %& (page-to-cord p.dat)
%| (lobe-to-cord p.dat) %| (lobe-to-cord p.dat)
@ -5230,7 +5230,6 @@
^- mass ^- mass
[`@t`(rap 3 [a '-' b ~]:mars) %& res] [`@t`(rap 3 [a '-' b ~]:mars) %& res]
:: ::
++ files ++ files
^- (list mass) ^- (list mass)
%+ turn (sort ~(tap by files.fod.dom.dojo) aor) %+ turn (sort ~(tap by files.fod.dom.dojo) aor)
@ -5381,12 +5380,9 @@
:: ::
:: +pick: copying gc based on norms :: +pick: copying gc based on norms
:: ::
:: XX somehow this seems to be able to tombstone something in our
:: head!
::
++ pick ++ pick
=| lat=(map lobe blob) =| lat=(map lobe blob)
=| sen=(set (map path lobe)) =| sen=(set [norm (map path lobe)])
|^ |^
=. ..pick-raft pick-raft =. ..pick-raft pick-raft
=. lat.ran.ruf lat =. lat.ran.ruf lat
@ -5409,9 +5405,9 @@
|- ^+ ..pick-raft |- ^+ ..pick-raft
?~ q.yaki ?~ q.yaki
..pick-raft ..pick-raft
?: (~(has in sen) q.yaki) ?: (~(has in sen) norm q.yaki)
..pick-raft ..pick-raft
=. sen (~(put in sen) q.yaki) =. sen (~(put in sen) norm q.yaki)
=/ bob (~(get by lat) q.n.q.yaki) =/ bob (~(get by lat) q.n.q.yaki)
=? lat ?|(?=(~ bob) ?=([~ %dead *] bob)) =? lat ?|(?=(~ bob) ?=([~ %dead *] bob))
?: =([~ %&] +:(~(fit ^de norm) p.n.q.yaki)) ?: =([~ %&] +:(~(fit ^de norm) p.n.q.yaki))