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

More arvo2 tweaks.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-05-23 15:04:50 -07:00
parent 8e6a722382
commit dc57141156
1 changed files with 3 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
arvo/hoon.hoon
View File

@ -8976,51 +8976,12 @@
(doze:(wink:(vent %$ bud (dink (dint hap))) now 0 (beck ~)) now [hap ~])
::
++ hurl :: start loop no id
|= ovo=ovum
^- [p=(list ovum) q=(list ,[p=@tas q=vase])]
(kick [[[[(dint p.ovo) ~] p.ovo ~] q.ovo] ~])
::
++ harl :: start loop no id
|= ovo=ovum
^- [p=(list ovum) q=(list ,[p=@tas q=vase])]
?> ?=(^ p.ovo)
%- kock
:~ ^- muvu
:+ i.p.ovo
~
[%call (dint p.ovo) t.p.ovo q.ovo]
==
(kick [i.p.ovo ~ [%call (dint p.ovo) t.p.ovo q.ovo]]~)
::
++ kick :: complete loop
|= mor=(list muve)
=| ova=(list ovum)
=+ rom=mor
|- ^- [p=(list ovum) q=(list ,[p=@tas q=vase])]
?~ mor
[(flop ova) fan]
:: ~& [%kick-move p.i.mor -.q.i.mor]
?. ?=(^ p.i.mor)
~& [%kick-flat -.q.i.mor]
~& [%kick-rom rom]
$(mor t.mor)
?~ t.p.i.mor
$(mor t.mor, ova [[i.p.i.mor q.i.mor] ova])
?> ?=(^ i.p.i.mor)
=- $(mor (weld p.nyx t.mor), fan q.nyx)
^= nyx
=+ naf=fan
|- ^- [p=(list muve) q=_fan]
?~ naf [~ ~]
?. =(i.i.p.i.mor p.i.naf)
=+ tuh=$(naf t.naf)
[p.tuh [i.naf q.tuh]]
=+ ven=(vent p.i.naf bud q.i.naf)
=+ win=(wink:ven now (shax now) (beck ~))
=+ ^= yub
(beat:win t.i.p.i.mor t.p.i.mor q.i.mor)
[p.yub [[p.i.naf ves:q.yub] t.naf]]
::
++ kock :: new main loop
++ kick :: new main loop
|= mor=(list muvu)
=| ova=(list ovum)
=+ rom=mor
@ -9126,7 +9087,7 @@
=. eny (mix eny (shax now))
^- [(list ovum) _+>]
=^ zef fan
(~(harl (is eny bud fan) now) ovo)
(~(hurl (is eny bud fan) now) ovo)
[zef +>.$]
::
++ vega :: reboot kernel