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

Merge pull request #841 from belisarius222/clay-cache-fix

Browse Source 
fix clay cache for non-%mime entries; also add equality check as optimization
This commit is contained in:
Ted Blackman 2018-10-04 16:58:40 -07:00 committed by GitHub
commit b2611debb0
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 22 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
sys/vane/clay.hoon
View File

@ -1168,14 +1168,30 @@
=/ mis=miso q.i.p.lem
?> ?=(%mut -.mis)
=/ cag=cage p.mis
=/ mim=mime ((hard mime) q.q.cag)
:: if we have the %mime value cached, there's no change to apply
:: if :mis has the %mime mark and it's the same as cached, no-op
::
=? mut.nuz
!=(`mim (~(get by mim.dom) pax))
[i.p.lem mut.nuz]
?: ?. =(%mime p.cag)
%.n
?~ cached=(~(get by mim.dom) pax)
%.n
=(((hard mime) q.q.cag) u.cached)
::
$(p.lem t.p.lem)
:: if the :mis mark is the target mark and the value is the same, no-op
::
$(p.lem t.p.lem)
?: =/ target-mark=mark =+(spur=(flop pax) ?~(spur !! i.spur))
?. =(target-mark p.cag)
%.n
::
=/ stored (need (need (read-x:ze let.dom pax)))
=/ stored-cage=cage ?>(?=(%& -.stored) p.stored)
::
=(q.q.stored-cage q.q.cag)
::
$(p.lem t.p.lem)
:: the value differs from what's stored, so register mutation
::
$(p.lem t.p.lem, mut.nuz [i.p.lem mut.nuz])
==
:: sort each section alphabetically for determinism
::