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

Switched ++seek and ++sick.

Browse Source
This commit is contained in:
C. Guy Yarvin 2016-01-07 17:14:41 -08:00
parent aceef3d681
commit cd9a958dab
1 changed files with 12 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
arvo/hoon.hoon
View File

@ -8155,7 +8155,7 @@
{$brcn *} (grow %gold [%$ 1] p.gen) {$brcn *} (grow %gold [%$ 1] p.gen)
:: ::
{$cnts *} {$cnts *}
=+ lar=(sick %read p.gen) =+ lar=(seek %read p.gen)
=- [(nice p.yom) ?:(=(0 p.q.lar) q.yom [%9 p.q.lar q.yom])] =- [(nice p.yom) ?:(=(0 p.q.lar) q.yom [%9 p.q.lar q.yom])]
^= yom ^= yom
=+ hej=*(list {p/axis q/nock}) =+ hej=*(list {p/axis q/nock})
@ -8304,8 +8304,8 @@
:: ::
{$brcn *} (grow %gold [%$ 1] p.gen) {$brcn *} (grow %gold [%$ 1] p.gen)
{$cnts *} {$cnts *}
=+ lar=(sick %read p.gen) =+ lar=(seek %read p.gen)
=+ vug=(sick(sut dox) %read p.gen) =+ vug=(seek(sut dox) %read p.gen)
?. &(=(p.lar p.vug) =(p.q.lar p.q.vug)) ?. &(=(p.lar p.vug) =(p.q.lar p.q.vug))
~|(%mull-bonk-e !!) ~|(%mull-bonk-e !!)
=- [(nice (fire p.yom)) (fire(vet |) q.yom)] =- [(nice (fire p.yom)) (fire(vet |) q.yom)]
@ -8605,7 +8605,7 @@
?- gen ?- gen
{^ *} (cell $(gen p.gen) $(gen q.gen)) {^ *} (cell $(gen p.gen) $(gen q.gen))
{$brcn *} (core sut %gold sut [[%0 0] p.gen]) {$brcn *} (core sut %gold sut [[%0 0] p.gen])
{$cnts *} =+ lar=(sick %read p.gen) {$cnts *} =+ lar=(seek %read p.gen)
=+ rag=q.q.lar =+ rag=q.q.lar
%- fire %- fire
|- ^- (list {p/span q/foot}) |- ^- (list {p/span q/foot})
@ -8678,7 +8678,15 @@
=+([p=*span q=`span`%void] |.((fork p q))) =+([p=*span q=`span`%void] |.((fork p q)))
:: ::
++ seek ++ seek
~/ %seek
|= {way/vial hyp/wing} |= {way/vial hyp/wing}
(sick way hyp)
::
++ sick
~/ %sick
|= {way/vial hyp/wing}
^- prop
%- foil
^- port ^- port
~| [%seek hyp] ~| [%seek hyp]
=+ fid=(find way hyp) =+ fid=(find way hyp)
@ -8688,18 +8696,6 @@
$& q.p.fid $& q.p.fid
$| [%| p.q.p.fid (~(tap in q.q.p.fid) ~)] $| [%| p.q.p.fid (~(tap in q.q.p.fid) ~)]
== ==
::
++ sick
~/ %sick
|= {way/vial hyp/wing}
^- prop
(foil (seek way hyp))
::
++ suck
~/ %suck
|= {way/vial hyp/wing}
^- prop
!!
:: ::
++ tech ++ tech
|= {way/?($read $rite $both $free) hyp/wing} |= {way/?($read $rite $both $free) hyp/wing}