ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-11 04:48:00 +03:00
Code Issues Packages Projects Releases Wiki Activity

fixed hash bug

Browse Source
This commit is contained in:
Philip C Monk 2015-04-24 17:07:34 -04:00
parent df357653e9
commit 0fc29d1a38
2 changed files with 5 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
main/app/helm/core.hook
View File

@ -3,7 +3,7 @@
:: :: ::
/? 314 :: zuse version
/- *sole, *talk :: structures
/+ sole :: libraries
/+ sole, talk :: libraries
:: :: ::
:::: :: ::
!: :: ::
@ -243,8 +243,8 @@
:_ acc
^- thought
:+ -
`(map partner (pair envelope delivery))`[[`partner`[%& our.hid %porch] [*envelope %pending]] ~ ~]
`statement`[lat.hid *bouquet [%app (crip ~(ram re tan))]]
[[[%& our.hid (main our.hid)] [*envelope %pending]] ~ ~]
[lat.hid *bouquet [%app (crip ~(ram re tan))]]
==
++ start
|= [her=@p sud=@tas gim=?(%auto germ)]

38
main/arvo/clay.hoon
View File

@ -426,7 +426,7 @@
%+ turn mut
|= [pax=path mis=miso]
?> ?=(%mut -.mis)
[pax (page-to-lobe:ze p.mis q.q.mis)]
[pax (page-to-lobe:ze [p q.q]:q.mis)]
::
~
::
@ -495,40 +495,6 @@
[%diff [%done ~ p.mis] [%cast p.p.mis [%done ~ q.mis]]]
==
==
:: =+ ^= sop
:: |= [a=path b=miso]
:: ^- ?
:: ?| ?=(%del -.b)
:: ?=(%dif -.b)
:: ?& ?=(%ins -.b)
:: ?=(%mime p.p.b)
:: =+ (slag (dec (lent a)) a)
:: ?| =([%hook ~] -)
:: =([%hoon ~] -)
:: == == ==
:: =+ ^- lon=(list path)
:: (murn q.p.lem |=([a=path b=miso] ?:((sop a b) ~ (some a))))
:: =+ ^- sot=(list ,[p=path q=misu])
:: %+ murn q.p.lem
:: |=([a=path b=miso] ?.((sop a b) ~ (some [a ?<(?=(%mut -.b) b)])))
:: =+ ^- mim=(map path mime)
:: %- mo
:: ^- (list ,[path mime])
:: %+ murn q.p.lem
:: |= [a=path b=miso]
:: ?- -.b
:: %del ~
:: %ins ?.(?=(%mime p.p.b) ~ (some a ((hard mime) q.q.p.b)))
:: %dif ~
:: %mut ?.(?=(%mime p.q.b) ~ (some a ((hard mime) q.q.q.b)))
:: ==
:: =. dok `[sot lon mim]
:: ?~ lon
:: (apply-edit wen)
:: =+ ^- los=(list ,[duct path note])
:: %+ murn q.p.lem
:: |=([a=path b=miso] ?:((sop a b) ~ (some (silkify wen a b))))
:: %_(+>.$ tag (welp los tag))
::
++ silkify
|= [wen=@da pax=path mis=miso]
@ -1118,7 +1084,7 @@
%delta [%pact $(lob q.q.bol) [%volt ~ r.bol]]
==
::
++ page-to-lobe |=(* (shax (jam +<)))
++ page-to-lobe |=(page (shax (jam +<)))
++ make-direct :: make blob
|= p=page
^- blob