urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-07 13:37:36 +03:00
Code Issues Packages Projects Releases Wiki Activity

Cleaned all %wt except %wtts.

Browse Source
This commit is contained in:
C. Guy Yarvin 2015-12-12 16:56:29 -08:00
parent 2ed547b87a
commit 405e720365
1 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
arvo/hoon.hoon
View File

@ -301,23 +301,23 @@
{$tssg p+tusk} :: compose twig list {$tssg p+tusk} :: compose twig list
:: :::::: conditionals :: :::::: conditionals
{$wtbr p+tusk} :: logical OR {$wtbr p+tusk} :: logical OR
{$xthp p+wing q+tine} :: select case in q {$wthp p+wing q+tine} :: select case in q
{$xthz p+tiki q+tine} :: tiki %wthp {$wthz p+tiki q+tine} :: tiki %wthp
{$wtcl p+twig q+twig r+twig} :: if p, then q, else r {$wtcl p+twig q+twig r+twig} :: if p, then q, else r
{$wtdt p+twig q+twig r+twig} :: unless, ?:(p r q) {$wtdt p+twig q+twig r+twig} :: unless, ?:(p r q)
{$wtkt p+wing q+twig r+twig} :: if p is a cell {$wtkt p+wing q+twig r+twig} :: if p is a cell
{$wtkz p+tiki q+twig r+twig} :: tiki %wtkt {$wtkz p+tiki q+twig r+twig} :: tiki %wtkt
{$wtgl p+twig q+twig} :: assert |, ?:(p !! q) {$wtgl p+twig q+twig} :: assert |, ?:(p !! q)
{$wtgr p+twig q+twig} :: assert &, ?:(p q !!) {$wtgr p+twig q+twig} :: assert &, ?:(p q !!)
{$xtls p+wing q+twig r+tine} :: %wthp w/ default {$wtls p+wing q+twig r+tine} :: %wthp w/ default
{$xtlz p+tiki q+twig r+tine} :: tiki %wtls {$wtlz p+tiki q+twig r+tine} :: tiki %wtls
{$wtpm p+tusk} :: logical AND {$wtpm p+tusk} :: logical AND
{$wtpt p+wing q+twig r+twig} :: if p is an atom {$wtpt p+wing q+twig r+twig} :: if p is an atom
{$wtpz p+tiki q+twig r+twig} :: tiki %wtpt {$wtpz p+tiki q+twig r+twig} :: tiki %wtpt
{$wtsg p+wing q+twig r+twig} :: if p is null {$wtsg p+wing q+twig r+twig} :: if p is null
{$wtsz p+tiki q+twig r+twig} :: tiki %wtsg {$wtsz p+tiki q+twig r+twig} :: tiki %wtsg
{$wtts p+tile q+wing} :: if q is in tile p {$wtts p+tile q+wing} :: if q is in tile p
{$xttz p+twig q+tiki} :: tiki %wtts {$wttz p+twig q+tiki} :: tiki %wtts
{$wtzp p+twig} :: logical NOT {$wtzp p+twig} :: logical NOT
:: :::::: special :: :::::: special
{$zpcb p+spot q+twig} :: debug info in trace {$zpcb p+spot q+twig} :: debug info in trace
@ -7293,7 +7293,7 @@
{$wtgr *} [%wtcl p.gen q.gen [%zpzp ~]] {$wtgr *} [%wtcl p.gen q.gen [%zpzp ~]]
{$wtkt *} [%wtcl [%wtts [%axil %atom %$] p.gen] r.gen q.gen] {$wtkt *} [%wtcl [%wtts [%axil %atom %$] p.gen] r.gen q.gen]
:: ::
{$xthp *} {$wthp *}
|- |-
?~ q.gen ?~ q.gen
[%zpfs [%cnzz p.gen]] [%zpfs [%cnzz p.gen]]
@ -7302,8 +7302,8 @@
q.i.q.gen q.i.q.gen
$(q.gen t.q.gen) $(q.gen t.q.gen)
:: ::
{$xtls *} {$wtls *}
[%xthp p.gen (weld r.gen `__(r.gen)`[[[%cbzz %noun] q.gen] ~])] [%wthp p.gen (weld r.gen `__(r.gen)`[[[%cbzz %noun] q.gen] ~])]
:: ::
{$wtpm *} {$wtpm *}
|- |-
@ -7313,16 +7313,16 @@
{$wtsg *} [%wtcl [%wtts [%axil %null] p.gen] q.gen r.gen] {$wtsg *} [%wtcl [%wtts [%axil %null] p.gen] q.gen r.gen]
{$wtzp *} [%wtcl p.gen [%dtzz %f 1] [%dtzz %f 0]] {$wtzp *} [%wtcl p.gen [%dtzz %f 1] [%dtzz %f 0]]
:: ::
{$xthz *} {$wthz *}
=+ vaw=~(. ah p.gen) =+ vaw=~(. ah p.gen)
%- gray:vaw %- gray:vaw
[%xthp puce:vaw (turn q.gen |=({a+twig b+twig} [a (blue:vaw b)]))] [%wthp puce:vaw (turn q.gen |=({a+twig b+twig} [a (blue:vaw b)]))]
:: ::
{$xtlz *} {$wtlz *}
=+ vaw=~(. ah p.gen) =+ vaw=~(. ah p.gen)
%- gray:vaw %- gray:vaw
^- twig ^- twig
:+ %xtls puce:vaw :+ %wtls puce:vaw
[(blue:vaw q.gen) (turn r.gen |=({a+twig b+twig} [a (blue:vaw b)]))] [(blue:vaw q.gen) (turn r.gen |=({a+twig b+twig} [a (blue:vaw b)]))]
:: ::
{$wtsz *} {$wtsz *}
@ -7340,7 +7340,7 @@
%- gray:vaw %- gray:vaw
[%wtpt puce:vaw (blue:vaw q.gen) (blue:vaw r.gen)] [%wtpt puce:vaw (blue:vaw q.gen) (blue:vaw r.gen)]
:: ::
{$xttz *} {$wttz *}
=+ vaw=~(. ah q.gen) =+ vaw=~(. ah q.gen)
%- gray:vaw %- gray:vaw
[%wtts [%herb (blue:vaw p.gen)] puce:vaw] [%wtts [%herb (blue:vaw p.gen)] puce:vaw]
@ -9839,10 +9839,10 @@
['.' (rune dot %wtdt expc)] ['.' (rune dot %wtdt expc)]
['<' (rune gal %wtgl expb)] ['<' (rune gal %wtgl expb)]
['>' (rune gar %wtgr expb)] ['>' (rune gar %wtgr expb)]
['-' (rune hep %xthz expx)] ['-' (rune hep %wthz expx)]
['^' (rune ket %wtkz expf)] ['^' (rune ket %wtkz expf)]
['=' (rune tis %xttz expw)] ['=' (rune tis %wttz expw)]
['+' (rune lus %xtlz expy)] ['+' (rune lus %wtlz expy)]
['&' (rune pam %wtpm exps)] ['&' (rune pam %wtpm exps)]
['@' (rune pat %wtpz expf)] ['@' (rune pat %wtpz expf)]
['~' (rune sig %wtsz expf)] ['~' (rune sig %wtsz expf)]