ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-09-22 07:59:22 +03:00
Code Issues Packages Projects Releases Wiki Activity

Rewrite ++doze in %clay.

Browse Source 
I'm always a fan of removing ugly names just for a single call.
This commit is contained in:
Jared Hance 2014-07-07 10:04:44 -04:00
parent 4387713100
commit 1242d1b456
1 changed files with 19 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
arvo/clay.hoon
View File

@ -143,22 +143,21 @@
:: ::
++ doze :: sleep until ++ doze :: sleep until
=+ xiq=(~(tap by qyx) ~) =+ xiq=(~(tap by qyx) ~)
=| nex=(unit ,@da) ^- (unit ,@da)
|- ^+ nex %+ roll xiq
?~ xiq nex |= [xaq=[p=duct q=rave] nex=(unit ,@da)]
=+ ^= zis ^+ nex %+ hunt nex
?- -.q.i.xiq ?- -.q.xaq
& ?.(?=(%da -.q.p.q.i.xiq) ~ [~ p.q.p.q.i.xiq]) & ?.(?=(%da -.q.p.q.xaq) ~ [~ p.q.p.q.xaq])
:: ::
| |
=+ mot=`moat`p.q.i.xiq =+ mot=`moat`p.q.xaq
%+ hunt %+ hunt
?. ?=(%da -.p.mot) ~ ?. ?=(%da -.p.mot) ~
?.((lth now p.p.mot) ~ [~ p.p.mot]) ?.((lth now p.p.mot) ~ [~ p.p.mot])
?. ?=(%da -.q.mot) ~ ?. ?=(%da -.q.mot) ~
?.((lth now p.q.mot) [~ now] [~ p.q.mot]) ?.((lth now p.q.mot) [~ now] [~ p.q.mot])
== ==
$(xiq t.xiq, nex (hunt nex zis))
:: ::
++ duce :: produce request ++ duce :: produce request
|= [hen=duct rav=rave] |= [hen=duct rav=rave]
@ -484,11 +483,11 @@
:: ::
++ doze ++ doze
|= [now=@da hen=duct] |= [now=@da hen=duct]
=| nex=(unit ,@da) ^- (unit ,@da)
=+ dal=(turn (~(tap by fat.ruf) ~) |=([a=@p b=room] a)) %+ roll (~(tap by fat.ruf) ~)
|- ^+ nex |= [[dal=@p *] nex=(unit ,@da)]
?~ dal nex %+ hunt nex
$(dal t.dal, nex (hunt nex doze:(un i.dal now ruf))) doze:(un dal now ruf)
:: ::
++ load ++ load
|= old=[%0 ruf=raft] |= old=[%0 ruf=raft]