ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-11 04:48:00 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fix some names.

Browse Source
This commit is contained in:
C. Guy Yarvin 2017-11-14 14:55:05 -08:00
parent 8661c292ed
commit 260c9a4479
1 changed files with 16 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
sys/hoon.hoon
View File

@ -1228,6 +1228,7 @@
~/ %get ~/ %get
|= b/* |= b/*
^- {$@($~ {$~ u/_?>(?=(^ a) q.n.a)})} ^- {$@($~ {$~ u/_?>(?=(^ a) q.n.a)})}
=+ 42
?~ a ?~ a
~ ~
?: =(b p.n.a) ?: =(b p.n.a)
@ -5445,7 +5446,6 @@
++ tile $^ {p/tile q/tile} :: ordered pair ++ tile $^ {p/tile q/tile} :: ordered pair
$% {$axil p/base} :: base span $% {$axil p/base} :: base span
{$bark p/toga q/tile} :: name {$bark p/toga q/tile} :: name
{$bckt p/tile q/tile} :: pair+tag
{$deet p/spot q/tile} :: set debug {$deet p/spot q/tile} :: set debug
{$fern p/{i/tile t/(list tile)}} :: plain selection {$fern p/{i/tile t/(list tile)}} :: plain selection
{$herb p/twig} :: assembly {$herb p/twig} :: assembly
@ -5453,6 +5453,7 @@
{$leaf p/term q/@} :: constant atom {$leaf p/term q/@} :: constant atom
{$plow p/what q/tile} :: apply help {$plow p/what q/tile} :: apply help
{$reed p/tile q/tile} :: atom+cell {$reed p/tile q/tile} :: atom+cell
{$vine p/tile q/tile} :: pair+tag
{$weed p/twig} :: example {$weed p/twig} :: example
== :: == ::
++ toga :: face control ++ toga :: face control
@ -6031,11 +6032,6 @@
:: ::
{$bark *} {$bark *}
[%ktts p.sec $(sec q.sec)] [%ktts p.sec $(sec q.sec)]
::
{$bckt *}
%- hail
=. wat ~
[%wtcl [%bust %bean] $(sec p.sec) $(sec q.sec)]
:: ::
{$deet *} {$deet *}
[%dbug p.sec $(sec q.sec)] [%dbug p.sec $(sec q.sec)]
@ -6046,11 +6042,13 @@
|- ^- twig |- ^- twig
?~ t.p.sec ?~ t.p.sec
^$(sec i.p.sec) ^$(sec i.p.sec)
[%wtcl [%bust %bean] ^$(sec i.p.sec) $(p.sec t.p.sec)] [%wtcl [%bust %bean] $(p.sec t.p.sec) ^$(sec i.p.sec)]
:: ::
{$herb *} {$herb *}
%- hail %- hail
=. wat ~ =. wat ~
:: reduce excess model/value transitions
::
=+ cys=~(boil ap p.sec) =+ cys=~(boil ap p.sec)
?: ?=($herb -.cys) ?: ?=($herb -.cys)
(home [%tsgl [%limb %$] p.sec]) (home [%tsgl [%limb %$] p.sec])
@ -6062,7 +6060,7 @@
|- ^- twig |- ^- twig
?~ t.p.sec ?~ t.p.sec
^$(sec i.p.sec) ^$(sec i.p.sec)
[%wtcl [%bust %bean] ^$(sec i.p.sec) $(p.sec t.p.sec)] [%wtcl [%bust %bean] $(p.sec t.p.sec) ^$(sec i.p.sec)]
:: ::
{$leaf *} {$leaf *}
(hail [%rock p.sec q.sec]) (hail [%rock p.sec q.sec])
@ -6075,6 +6073,11 @@
%- hail %- hail
=. wat ~ =. wat ~
[%wtcl [%bust %bean] $(sec p.sec) $(sec q.sec)] [%wtcl [%bust %bean] $(sec p.sec) $(sec q.sec)]
::
{$vine *}
%- hail
=. wat ~
[%wtcl [%bust %bean] $(sec p.sec) $(sec q.sec)]
:: ::
{$weed *} {$weed *}
(hail (home p.sec)) (hail (home p.sec))
@ -6083,11 +6086,11 @@
^- twig ^- twig
=/ raw [%brts [~ ~] [%base %noun] (whip(gom 7) 6)] =/ raw [%brts [~ ~] [%base %noun] (whip(gom 7) 6)]
:: ::
:: this performance fix should unify a bunch of trivial functions, :: this performance fix should unify a bunch of trivial formulas,
:: but breaks on horrible dogshit hacks in ++raid:zuse. :: but breaks on certain hacks in ++raid:zuse.
:: ::
:: ?. ?=(?($axil $leaf) -.sec) raw :: ?. ?=(?($axil $leaf) -.sec) raw
:: [%tsgr [%rock %n ] raw] :: [%tsgr [%rock %n ~] raw]
raw raw
:: ::
++ whip ++ whip
@ -6147,7 +6150,7 @@
{$bark *} {$bark *}
[%ktts p.sec $(sec q.sec)] [%ktts p.sec $(sec q.sec)]
:: ::
{$bckt *} {$vine *}
%- hail %- hail
=. wat ~ =. wat ~
%- tun |= gon/* => .(nag gon) ^- twig %- tun |= gon/* => .(nag gon) ^- twig
@ -6474,7 +6477,7 @@
$| ?~(end p.def [%fern p.def [%kelp end] ~]) $| ?~(end p.def [%fern p.def [%kelp end] ~])
== ==
:: ::
{$bckt *} [%bckt boil(gen p.gen) boil(gen q.gen)] {$bckt *} [%vine boil(gen p.gen) boil(gen q.gen)]
{$bchp *} [%weed [%brsg [~ ~] p.gen [%bunt [%tsgr [%$ 7] q.gen]]]] {$bchp *} [%weed [%brsg [~ ~] p.gen [%bunt [%tsgr [%$ 7] q.gen]]]]
{$halo *} [%plow p.gen boil(gen q.gen)] {$halo *} [%plow p.gen boil(gen q.gen)]
{$bcts *} [%bark p.gen boil(gen q.gen)] {$bcts *} [%bark p.gen boil(gen q.gen)]