khan: randomize tids
tid was accidentally getting set to the name of the output mark. As we
don't currently support cancelling threads, there is no reason to
maintain the originally-intended correspondence between tid and conn
request-id.
Take the opportunity to clean up indentation somewhat.
[~ khan-gate(hey hen)]
::
%fard
+ =/ tid=@ta
+ (cat 3 'khan-fyrd--' (scot %uv (sham eny)))
=* fyd p.task
=/ =beak (get-beak bear.fyd now)
- =/ wir=wire (head hen)
- =/ rid=@ta (rear wir)
- =/ tid=@ta (cat 3 'khan-fyrd--' rid)
=/ args [~ `tid beak name.fyd args.fyd]
:_ khan-gate
%+ turn
%fyrd
=* fyd p.task
=/ =beak (get-beak bear.fyd now)
- =/ =dais:clay (get-dais beak p.q.args.fyd rof)
+ =/ =dais:clay
+ (get-dais beak p.q.args.fyd rof)
=/ =vase
(slam !>(some) (vale.dais q.q.args.fyd))
=/ =wire (make-wire beak p.args.fyd)
