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