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

khan: minor whitespace cleanup

Browse Source
This commit is contained in:
Jōshin 2022-03-26 07:54:13 -06:00
parent 83baaaafa0
commit 29a6692784
No known key found for this signature in database
GPG Key ID: A8BE5A9A521639D0
1 changed files with 13 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
pkg/arvo/sys/vane/khan.hoon
View File

@ -154,8 +154,7 @@
=* fyd p.task =* fyd p.task
=/ =beak (get-beak bear.fyd now) =/ =beak (get-beak bear.fyd now)
=/ =wire (make-wire beak p.args.fyd) =/ =wire (make-wire beak p.args.fyd)
=/ =dais:clay =/ =dais:clay (get-dais beak p.q.args.fyd rof)
(get-dais beak p.q.args.fyd rof)
=/ =vase =/ =vase
(slap (vale.dais q.q.args.fyd) !,(*hoon [~ u=.])) (slap (vale.dais q.q.args.fyd) !,(*hoon [~ u=.]))
=- [[hen %pass wire -]~ khan-gate] =- [[hen %pass wire -]~ khan-gate]
@ -206,17 +205,13 @@
:: ::
%khan %khan
?. ?=(%arow +<.hin) ~ ?. ?=(%arow +<.hin) ~
?~ tea ~ ?. ?=([%fyrd *] tea) ~
?. ?=(%fyrd -.tea) ~
=* row p.hin =* row p.hin
?. ?=(%& -.row) ?. ?=(%& -.row)
[hen %give %avow row]~ [hen %give %avow row]~
=/ [=beak =mark] =/ [=beak =mark] (read-wire tea)
(read-wire tea) =/ =tube:clay (get-tube beak p.p.row mark rof)
=/ =tube:clay =/ =vase (tube q.p.row)
(get-tube beak p.p.row mark rof)
=/ =vase
(tube q.p.row)
[hen %give %avow %& mark q.vase]~ [hen %give %avow %& mark q.vase]~
== ==
-- --