urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-07 13:37:36 +03:00
Code Issues Packages Projects Releases Wiki Activity

minor cleanup

Browse Source
This commit is contained in:
Anton Dyudin 2017-11-08 16:41:58 -08:00
parent 83dbc36e06
commit ce120f8ce1
2 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
sys/vane/ford.hoon
View File

@ -192,17 +192,18 @@
|= {ren/care:clay bem/beam sih/sign}
=< abet ^+ +>
?. ?=($writ &2.sih)
~|(%bad-axun !!)
~|([%bad-dep &2.sih] !!)
?~ p.sih +> :: acknowledged
=. out.bay (~(del in out.bay) bem)
=. fin.bay (~(put in fin.bay) bem)
=/ des ~(tap in (~(get ju bak.deh.bay) bem))
|- ^+ ..abet
?~ des ..abet
%_ ..abet
|- ^+ this
?~ des this
%_ $
sup.bay (~(del by sup.bay) i.des)
des t.des
mow
=- (weld - mow)
%- weld :_ mow
%+ turn ~(tap in (~(get ju sup.bay) i.des))
|=(a/duct `move`[a %give %news i.des])
==
@ -212,7 +213,7 @@
=+ nym=(~(get by dym.bay) hen)
?~ nym :: XX should never
~& [%ford-mystery hen]
..abet
this
=+ tas=(need (~(get by q.tad.bay) u.nym))
abut:~(decamp zo [u.nym tas])
::