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

kiln improvements

Browse Source
This commit is contained in:
Philip C Monk 2015-05-26 20:06:21 -04:00
parent 6cd237ef7f
commit dcf4b7ec03
2 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
base/arvo/clay.hoon
View File

@ -1068,9 +1068,9 @@
=+ vid=(read-at-aeon:ze u.nao p.q.i.xiq)
:: ~& %red-at-aeon
?~ vid
?~ u.nao
?: =(0 u.nao)
~& [%oh-poor `path`[syd '0' r.p.q.i.xiq]]
$(xiq t.xiq)
$(xiq t.xiq)
~& [%oh-well desk=syd mood=p.q.i.xiq aeon=u.nao]
$(xiq t.xiq, xaq [i.xiq xaq])
$(xiq t.xiq, ..wake (balk p.i.xiq u.vid p.q.i.xiq))

13
base/lib/kiln/core.hook
View File

@ -129,7 +129,7 @@
%- flop
=< acc
%+ roll mes
=< .(eny eny)
=< .(eny ^eny)
|= [tan=tank acc=(list thought:talk) eny=@uvI]
^- [acc=(list thought:talk) eny=@uvI]
=+ (sham eny mes)
@ -172,7 +172,10 @@
%- blab :_ ~
:* ost %merg
/kiln/sync/[syd]/(scot %p her)/[sud]
our syd her sud %mate
our syd her sud
?: =(0 .^(%cw /(scot %p our)/[syd]/(scot %da lat)))
%init
%mate
==
::
++ mere
@ -182,9 +185,9 @@
%- spam
?: ?=(%& -.mes)
[leaf/"autosync succeeded from {<sud>} on {<her>} to {<syd>}" ~]
:* leaf/"autsync faild from {<sud>} on {<her>} to {<syd>}"
:* leaf/"autosync failed from {<sud>} on {<her>} to {<syd>}"
leaf/"please manually merge the desks with"
leaf/":helm+merge %{(trip syd)} {(scow %p her)} %{(trip sud)}"
leaf/":+merge %{(trip syd)} {(scow %p her)} %{(trip sud)}"
leaf/""
leaf/"error code: {<p.p.mes>}"
q.p.mes
@ -215,7 +218,7 @@
++ lose
^+ .
~| %kiln-work-fail
!!
.
::
++ gage-to-tage ::
|= res=gage