ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-16 10:49:26 +03:00
Code Issues Packages Projects Releases Wiki Activity

Defaulting.

Browse Source
This commit is contained in:
C. Guy Yarvin 2017-11-29 15:49:43 -08:00
parent ecafc30064
commit 1f896543ba
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
sys/hoon.hoon
View File

@ -6498,6 +6498,7 @@
::::
++ bunt
|- ^- hoon
~$ bunt
?- sec
{^ *}
%- hail
@ -6586,11 +6587,15 @@
::
++ whip
|= axe/axis
~$ whip
=+ ^= tun
|= noy/$-(* hoon)
|= $: def/tile
noy/$-(* hoon)
==
~$ tune
^- hoon
?@ nag
=+ luz=[%cnts [[%& 1] ~] [[[%& axe] ~] bunt(sec [%axil %cell])] ~]
=+ luz=[%cnts [[%& 1] ~] [[[%& axe] ~] bunt(sec def)] ~]
?: =(& nag)
[%tsgr [%wtpt [[%& axe] ~] luz [%$ 1]] (noy [& &])]
[%tsgr luz (noy [& &])]
@ -6600,7 +6605,7 @@
{^ *}
%- hail
=. wat ~
%- tun |= gon/* => .(nag gon) ^- hoon
%+ tun [%axil %cell] |= gon/* => .(nag gon) ^- hoon
:- ^$(sec -.sec, nag -.nag, axe (peg axe 2))
^$(sec +.sec, nag +.nag, axe (peg axe 3))
::
@ -6644,7 +6649,7 @@
{$vine *}
%- hail
=. wat ~
%- tun |= gon/* => .(nag gon) ^- hoon
%+ tun [%axil %cell] |= gon/* => .(nag gon) ^- hoon
?@ -.nag
?: =(& -.nag)
[%wtpt [[%& (peg axe 2)] ~] ^$(sec q.sec) ^$(sec p.sec)]
@ -6679,7 +6684,12 @@
{$kelp *}
%- hail
=. wat ~
%- tun |= gon/* => .(nag gon)
=/ def/tile
:_ [%axil %noun]
=< p
|- ^- line
?~(t.p.sec i.p.sec $(i.p.sec i.t.p.sec, t.p.sec t.t.p.sec))
%+ tun def |= gon/* => .(nag gon)
|- ^- hoon
?~ t.p.sec
:- [%rock +.p.i.p.sec]