urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-05 19:46:50 +03:00
Code Issues Packages Projects Releases Wiki Activity

minor %ames style cleanup

Browse Source
This commit is contained in:
Joe Bryan 2018-08-01 20:52:24 -04:00
parent f1d5587f48
commit 62f49dc9e3
1 changed files with 20 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
sys/vane/ames.hoon
View File

@ -661,8 +661,9 @@
++ myx :: dore by ship
|= her=ship
^+ lax
=+ fod=(~(get by hoc.saf) her)
~(. lax [her ?~(fod (gur her) u.fod)])
=/ fod=dore
(fall (~(get by hoc.saf) her) (gur her))
~(. lax [her fod])
::
++ nux :: install dore
|= new=_lax
@ -1088,10 +1089,8 @@
::
++ um :: per server
|= our=ship
=+ gus=(need (~(us go ton.fox) our))
=+ ^= weg ^- corn
=+ weg=(~(get by zac.fox) our)
?^(weg u.weg *corn)
=/ gus (need (~(us go ton.fox) our))
=/ weg=corn (fall (~(get by zac.fox) our) *corn)
=| bin=(list boon)
|%
++ ho :: ho:um:am
@ -1205,17 +1204,15 @@
|%
++ apse
^+ +>.$
=+ oub=bust:puz
=+ neg==(~ yed.caq.dur.diz)
=/ oub bust:puz
=/ neg =(~ yed.caq.dur.diz)
=. +>.$ east
=+ eng==(~ yed.caq.dur.diz)
=+ bou=bust:puz
=. bin
?. &(oub !bou) bin
:_(bin [%wine [our her] " is ok"])
=. bin
?. &(neg !eng) bin
:_(bin [%wine [our her] " is your neighbor"])
=/ eng =(~ yed.caq.dur.diz)
=/ bou bust:puz
=? +>.$ &(oub !bou)
(emit [%wine [our her] " is ok"])
=? +>.$ &(neg !eng)
(emit [%wine [our her] " is your neighbor"])
+>.$
::
++ east
@ -1438,17 +1435,17 @@
++ wool :: wool:ho:um:am
|= [hen=duct cha=path val=*] :: send a statement
^+ +>
=+ ^= rol ^- rill
=+ rol=(~(get by ryl.bah) cha)
?~(rol *rill u.rol)
=+ sex=sed.rol
=/ rol=rill (fall (~(get by ryl.bah) cha) *rill)
=/ sex=@ud sed.rol
:: ~& [%tx [our her] cha sex]
=. ryl.bah
%+ ~(put by ryl.bah) cha
rol(sed +(sed.rol), san (~(put by san.rol) sex hen))
=+ cov=[p=p:sen:gus q=clon:diz]
%= rol
sed +(sed.rol)
san (~(put by san.rol) sex hen)
==
%+ wind [cha sex]
[%bond q.cov cha sex val]
[%bond clon:diz cha sex val]
::
++ zest :: zest:ho:um:am
:~ :~ :* [%rtt rtt.sop.bah]