ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-17 11:51: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
{$tsls p/twig q/twig} :: push p on .. of q
{$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
:: :::::: conditionals
{$wtbr p/(list twig)} :: logical OR
@ -7407,7 +7407,7 @@
::
{$pick *}
=^ coz gid (many p.q.ham)
:_(gid [%rose [[' ' ~] ['?(' ~] [')' ~]] coz])
:_(gid [%rose [[' ' ~] ['?' '(' ~] [')' ~]] coz])
::
{$plot *}
=^ coz gid (many p.q.ham)
@ -8391,6 +8391,9 @@
::
{$tstr *}
$(gen r.gen, sut (busk p.gen q.gen))
::
{$tshx *}
$(gen r.gen, sut (buss p.gen q.gen))
::
{$wtcl *}
=+ nor=$(gen p.gen, gol bool)
@ -8528,6 +8531,13 @@
sut (busk 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 *}
=+ nor=$(gen p.gen, gol bool)
@ -8798,6 +8808,7 @@
{$sggr *} $(gen q.gen)
{$tsgr *} $(gen q.gen, sut $(gen p.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)]
%- fork :~
?:(=(%void fex) %void $(sut fex, gen q.gen))
@ -9639,6 +9650,7 @@
['>' (rune gar %tsgr expb)]
['-' (rune hep %tshp expb)]
['*' (rune tar %tstr expj)]
['#' (rune hax %tshx expl)]
['+' (rune lus %tsls expb)]
['~' (rune sig %tssg expi)]
==
@ -9770,6 +9782,7 @@
++ expi |.((butt ;~(gunk loaf hank))) :: one or more twigs
++ expj |.(;~(gunk sym rope loaf)) :: term, wing, and twig
++ 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
++ expn |.((stag %cltr (butt hank))) :: autoconsed twigs
++ expp |.(;~(gunk (butt rick) loaf)) :: [wing twig]s, twig