ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-17 20:01:32 +03:00
Code Issues Packages Projects Releases Wiki Activity

Testing =#.

Browse Source
This commit is contained in:
C. Guy Yarvin 2016-01-15 17:42:50 -08:00
parent 6ee27783dc
commit 244ef50e1b
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
arvo/hoon.hoon
View File

@ -301,7 +301,7 @@
{$tskt p/twig q/twig r/twig s/twig} :: state machine wing {$tskt p/twig q/twig r/twig s/twig} :: state machine wing
{$tsls p/twig q/twig} :: push p on .. of q {$tsls p/twig q/twig} :: push p on .. of q
{$tstr p/term q/wing r/twig} :: make an alias {$tstr p/term q/wing r/twig} :: make an alias
{$tstx p/term q/twig r/twig} :: make an alias {$tshx p/term q/twig r/twig} :: make an alias
{$tssg p/(list twig)} :: compose twig list {$tssg p/(list twig)} :: compose twig list
:: :::::: conditionals :: :::::: conditionals
{$wtbr p/(list twig)} :: logical OR {$wtbr p/(list twig)} :: logical OR
@ -7407,7 +7407,7 @@
:: ::
{$pick *} {$pick *}
=^ coz gid (many p.q.ham) =^ coz gid (many p.q.ham)
:_(gid [%rose [[' ' ~] ['?(' ~] [')' ~]] coz]) :_(gid [%rose [[' ' ~] ['?' '(' ~] [')' ~]] coz])
:: ::
{$plot *} {$plot *}
=^ coz gid (many p.q.ham) =^ coz gid (many p.q.ham)
@ -8391,6 +8391,9 @@
:: ::
{$tstr *} {$tstr *}
$(gen r.gen, sut (busk p.gen q.gen)) $(gen r.gen, sut (busk p.gen q.gen))
::
{$tshx *}
$(gen r.gen, sut (buss p.gen q.gen))
:: ::
{$wtcl *} {$wtcl *}
=+ nor=$(gen p.gen, gol bool) =+ nor=$(gen p.gen, gol bool)
@ -8528,6 +8531,13 @@
sut (busk p.gen q.gen) sut (busk p.gen q.gen)
dox (busk(sut dox) p.gen q.gen) dox (busk(sut dox) p.gen q.gen)
== ==
::
{$tshx *}
%= $
gen r.gen
sut (buss p.gen q.gen)
dox (buss(sut dox) p.gen q.gen)
==
:: ::
{$wtcl *} {$wtcl *}
=+ nor=$(gen p.gen, gol bool) =+ nor=$(gen p.gen, gol bool)
@ -8798,6 +8808,7 @@
{$sggr *} $(gen q.gen) {$sggr *} $(gen q.gen)
{$tsgr *} $(gen q.gen, sut $(gen p.gen)) {$tsgr *} $(gen q.gen, sut $(gen p.gen))
{$tstr *} $(gen r.gen, sut (busk p.gen q.gen)) {$tstr *} $(gen r.gen, sut (busk p.gen q.gen))
{$tshx *} $(gen r.gen, sut (buss p.gen q.gen))
{$wtcl *} =+ [fex=(gain p.gen) wux=(lose p.gen)] {$wtcl *} =+ [fex=(gain p.gen) wux=(lose p.gen)]
%- fork :~ %- fork :~
?:(=(%void fex) %void $(sut fex, gen q.gen)) ?:(=(%void fex) %void $(sut fex, gen q.gen))
@ -9639,6 +9650,7 @@
['>' (rune gar %tsgr expb)] ['>' (rune gar %tsgr expb)]
['-' (rune hep %tshp expb)] ['-' (rune hep %tshp expb)]
['*' (rune tar %tstr expj)] ['*' (rune tar %tstr expj)]
['#' (rune hax %tshx expl)]
['+' (rune lus %tsls expb)] ['+' (rune lus %tsls expb)]
['~' (rune sig %tssg expi)] ['~' (rune sig %tssg expi)]
== ==
@ -9770,6 +9782,7 @@
++ expi |.((butt ;~(gunk loaf hank))) :: one or more twigs ++ expi |.((butt ;~(gunk loaf hank))) :: one or more twigs
++ expj |.(;~(gunk sym rope loaf)) :: term, wing, and twig ++ expj |.(;~(gunk sym rope loaf)) :: term, wing, and twig
++ expk |.(;~(gunk loaf ;~(plug loaf (easy ~)))) :: list of two twigs ++ expk |.(;~(gunk loaf ;~(plug loaf (easy ~)))) :: list of two twigs
++ expl |.(;~(gunk sym loaf loaf)) :: term, two twigs
++ expm |.((butt ;~(gunk rope loaf rick))) :: several [tile twig]s ++ expm |.((butt ;~(gunk rope loaf rick))) :: several [tile twig]s
++ expn |.((stag %cltr (butt hank))) :: autoconsed twigs ++ expn |.((stag %cltr (butt hank))) :: autoconsed twigs
++ expp |.(;~(gunk (butt rick) loaf)) :: [wing twig]s, twig ++ expp |.(;~(gunk (butt rick) loaf)) :: [wing twig]s, twig