ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-21 05:41:43 +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

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

@ -139,10 +139,10 @@
%^ cat 3 %^ cat 3
'khan-fyrd--' 'khan-fyrd--'
(scot %uv (sham (mix tic eny))) (scot %uv (sham (mix tic eny)))
=. tic +(tic) =. tic +(tic)
=* fyd p.task =* fyd p.task
=/ =beak (get-beak bear.fyd now) =/ =beak (get-beak bear.fyd now)
=/ args [~ `tid beak name.fyd q.args.fyd] =/ args [~ `tid beak name.fyd q.args.fyd]
:_ khan-gate :_ khan-gate
%+ turn %+ turn
:~ (watch-spider /thread-result/[tid]) :~ (watch-spider /thread-result/[tid])
@ -151,11 +151,10 @@
|=(=note ^-(move [hen %pass //g note])) |=(=note ^-(move [hen %pass //g note]))
:: ::
%fyrd %fyrd
=* 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]
@ -205,18 +204,14 @@
== ==
:: ::
%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]~
== ==
-- --