ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-19 04:41:37 +03:00
Code Issues Packages Projects Releases Wiki Activity

khan: saner tic rollover, remove our

Browse Source
This commit is contained in:
Jōshin 2022-03-02 20:15:21 -06:00
parent e54e92cfa9
commit 0139550c79
No known key found for this signature in database
GPG Key ID: A8BE5A9A521639D0
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -103,12 +103,12 @@
?>(?=([@ ~] s.beam) beam(s i.s.beam)) ?>(?=([@ ~] s.beam) beam(s i.s.beam))
:: ::
++ start-spider ++ start-spider
|= [our=@p =vase] |= =vase
^- note ^- note
[%g %deal [our our] %spider %poke %spider-start vase] [%g %deal [our our] %spider %poke %spider-start vase]
:: ::
++ watch-spider ++ watch-spider
|= [our=@p =path] |= =path
^- note ^- note
[%g %deal [our our] %spider %watch path] [%g %deal [our our] %spider %watch path]
-- --
@ -132,21 +132,21 @@
~|(%khan-call-dud (mean tang.u.dud)) ~|(%khan-call-dud (mean tang.u.dud))
?+ -.task [~ khan-gate] ?+ -.task [~ khan-gate]
%born %born
[~ khan-gate(hey hen)] [~ khan-gate(hey hen, tic 0)]
:: ::
%fard %fard
=/ tid=@ta =/ tid=@ta
%^ cat 3 %^ cat 3
'khan-fyrd--' 'khan-fyrd--'
(scot %uv (sham (mix tic eny))) (scot %uv (sham (mix tic eny)))
=. tic (mod +(tic) (bex 128)) =. 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 our /thread-result/[tid]) :~ (watch-spider /thread-result/[tid])
(start-spider our !>(args)) (start-spider !>(args))
== ==
|=(=note ^-(move [hen %pass //g note])) |=(=note ^-(move [hen %pass //g note]))
:: ::