urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-05 19:46:50 +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 ++ bunt
|- ^- hoon |- ^- hoon
~$ bunt
?- sec ?- sec
{^ *} {^ *}
%- hail %- hail
@ -6586,11 +6587,15 @@
:: ::
++ whip ++ whip
|= axe/axis |= axe/axis
~$ whip
=+ ^= tun =+ ^= tun
|= noy/$-(* hoon) |= $: def/tile
noy/$-(* hoon)
==
~$ tune
^- hoon ^- hoon
?@ nag ?@ nag
=+ luz=[%cnts [[%& 1] ~] [[[%& axe] ~] bunt(sec [%axil %cell])] ~] =+ luz=[%cnts [[%& 1] ~] [[[%& axe] ~] bunt(sec def)] ~]
?: =(& nag) ?: =(& nag)
[%tsgr [%wtpt [[%& axe] ~] luz [%$ 1]] (noy [& &])] [%tsgr [%wtpt [[%& axe] ~] luz [%$ 1]] (noy [& &])]
[%tsgr luz (noy [& &])] [%tsgr luz (noy [& &])]
@ -6600,7 +6605,7 @@
{^ *} {^ *}
%- hail %- hail
=. wat ~ =. 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 2))
^$(sec +.sec, nag +.nag, axe (peg axe 3)) ^$(sec +.sec, nag +.nag, axe (peg axe 3))
:: ::
@ -6644,7 +6649,7 @@
{$vine *} {$vine *}
%- hail %- hail
=. wat ~ =. wat ~
%- tun |= gon/* => .(nag gon) ^- hoon %+ tun [%axil %cell] |= gon/* => .(nag gon) ^- hoon
?@ -.nag ?@ -.nag
?: =(& -.nag) ?: =(& -.nag)
[%wtpt [[%& (peg axe 2)] ~] ^$(sec q.sec) ^$(sec p.sec)] [%wtpt [[%& (peg axe 2)] ~] ^$(sec q.sec) ^$(sec p.sec)]
@ -6679,7 +6684,12 @@
{$kelp *} {$kelp *}
%- hail %- hail
=. wat ~ =. 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 |- ^- hoon
?~ t.p.sec ?~ t.p.sec
:- [%rock +.p.i.p.sec] :- [%rock +.p.i.p.sec]