ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-15 10:02:47 +03:00
Code Issues Packages Projects Releases Wiki Activity

clay: prepare for switching first commit to fusion

Browse Source 
Can't be done right now because get-fit doesn't look at the incoming
changes.
This commit is contained in:
Philip Monk 2020-04-24 12:17:22 -07:00
parent e7bf9cc190
commit d3b5fba864
No known key found for this signature in database
GPG Key ID: B66E1F02604E44EC
1 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3410,6 +3410,12 @@
:: ::
++ info ++ info
|= [deletes=(set path) changes=(map path cage)] |= [deletes=(set path) changes=(map path cage)]
?: =(0 let.dom)
?> ?=(~ deletes)
=/ data=(map path (each page lobe))
(~(run by changes) |=(=cage &+[p q.q]:cage))
(park [~ data] *rang)
::
=/ parent-tako=tako (aeon-to-tako:ze let.dom) =/ parent-tako=tako (aeon-to-tako:ze let.dom)
=/ data=(map path (each page lobe)) =/ data=(map path (each page lobe))
=/ parent-yaki (tako-to-yaki:ze parent-tako) =/ parent-yaki (tako-to-yaki:ze parent-tako)
@ -3441,7 +3447,10 @@
lat.ran (~(uni by lat.rang) lat.ran) lat.ran (~(uni by lat.rang) lat.ran)
== ==
=/ [deletes=(set path) changes=(map path (each page lobe))] =/ [deletes=(set path) changes=(map path (each page lobe))]
=/ previous-yaki (aeon-to-yaki:ze let.dom) =/ previous-yaki
?: =(0 let.dom)
*yaki
(aeon-to-yaki:ze let.dom)
(get-changes q.previous-yaki q.yuki) (get-changes q.previous-yaki q.yuki)
~| [from=let.dom deletes=deletes changes=~(key by changes)] ~| [from=let.dom deletes=deletes changes=~(key by changes)]
=. ..park (emil (print deletes ~(key by changes))) =. ..park (emil (print deletes ~(key by changes)))
@ -3504,7 +3513,7 @@
~ ~
`path `path
:: ::
%- silt ^- (list [path (each page lobe)]) %- malt ^- (list [path (each page lobe)])
%+ murn ~(tap by (~(uni by old) new)) %+ murn ~(tap by (~(uni by old) new))
|= [=path *] |= [=path *]
^- (unit [^path (each page lobe)]) ^- (unit [^path (each page lobe)])
@ -5128,8 +5137,11 @@
:~ [hen %pass /one %c %info q.bem %& one] :~ [hen %pass /one %c %info q.bem %& one]
[hen %pass /two %c %info q.bem %& two] [hen %pass /two %c %info q.bem %& two]
== ==
=+ yak=(~(got by hut.ran.ruf) (~(got by hit.dom.u.dos) let.dom.u.dos)) =/ =yaki
=+ cos=(mode-to-commit q.yak (flop s.bem) all.req fis.req) ?: =(0 let.dom.u.dos)
*yaki
(~(got by hut.ran.ruf) (~(got by hit.dom.u.dos) let.dom.u.dos))
=+ cos=(mode-to-commit q.yaki (flop s.bem) all.req fis.req)
=^ mos ruf =^ mos ruf
=/ den ((de our now ski hen ruf) our des.req) =/ den ((de our now ski hen ruf) our des.req)
abet:(info:den cos) abet:(info:den cos)