ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-09-21 07:28:30 +03:00
Code Issues Packages Projects Releases Wiki Activity

Revert "Cache tile defaults."

Browse Source 
This reverts commit db54f72514.
This commit is contained in:
C. Guy Yarvin 2017-11-30 14:31:28 -08:00
parent db54f72514
commit b26639b690
4 changed files with 19 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/dojo.hoon
View File

@ -1,4 +1,4 @@
:: :: ::
:: :: ::
:::: /hoon/dojo/app :: ::::
:: :: ::
/? 309 :: arvo kelvin

2
app/talk.hoon
View File

@ -1,4 +1,4 @@
:: :: ::
:: :: ::
:::: /hoon/talk/app :: ::
:: :: ::
/? 310

24
sys/hoon.hoon
View File

@ -247,7 +247,7 @@
:>
:> mold generator: produces a discriminated fork between two types,
:> defaulting to {a}.
|*({a/mold b/mold} $%({$& p/a} {$| p/b}))
|*({a/mold b/mold} $%({$| p/b} {$& p/a}))
::
++ gate
:> function
@ -6498,7 +6498,7 @@
::::
++ bunt
|- ^- hoon
~+
~+ ~$ bunt
?- sec
{^ *}
%- hail
@ -6588,21 +6588,24 @@
++ whip
|= axe/axis
=+ ^= tun
|= noy/$-(* hoon)
|= $: def/tile
noy/$-(* hoon)
==
~$ tune
^- hoon
?@ nag
=+ luz=[%cnts [[%& 1] ~] [[[%& axe] ~] bunt(sec [%axil %cell])] ~]
=+ luz=[%cnts [[%& 1] ~] [[[%& axe] ~] bunt(sec def)] ~]
?: =(& nag)
[%tsgr [%wtpt [[%& axe] ~] luz [%$ 1]] (noy [& &])]
[%tsgr luz (noy [& &])]
(noy nag)
~+
^- hoon
~+ ~$ whip
?- sec
{^ *}
%- hail
=. 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 3))
::
@ -6646,7 +6649,7 @@
{$vine *}
%- hail
=. wat ~
%- tun |= gon/* => .(nag gon) ^- hoon
%+ tun [%axil %cell] |= gon/* => .(nag gon) ^- hoon
?@ -.nag
?: =(& -.nag)
[%wtpt [[%& (peg axe 2)] ~] ^$(sec q.sec) ^$(sec p.sec)]
@ -6681,7 +6684,12 @@
{$kelp *}
%- hail
=. 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
?~ t.p.sec
:- [%rock +.p.i.p.sec]

1
sys/zuse.hoon
View File

@ -29,6 +29,7 @@
:: it's important to keep %zuse minimal. models and
:: engines not used outside a vane should stay inside
:: that vane.
!:
~% %zuse +> ~
=>
:: :: ::