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

About to strip the tree. Minor fixes.

Browse Source
This commit is contained in:
C. Guy Yarvin 2015-12-22 20:48:20 -08:00
parent 38fc2f77dc
commit 8f63262b74
2 changed files with 26 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ape/talk.hoon
View File

@ -1292,7 +1292,7 @@
::
++ ra-know :: story monad
|= man/span
|* fun/$+(_pa _+>+>)
|* fun/$+(_pa _+>)
^+ +>+>
=+ pur=(~(get by stories) man)
?~ pur
@ -2094,12 +2094,12 @@
==
::
++ etch-friend ::
|= {way/wire fun/$+({man/span cuz/station} {(list move) _+>})}
|= {way/wire fun/$+({man/span cuz/station} {(list move) _.})}
=+ wer=(etch way)
?>(?=($friend -.wer) (fun p.wer q.wer))
::
++ etch-repeat ::
|= {way/wire fun/$+({num/@ud src/@p man/span} {(list move) _+>})}
|= {way/wire fun/$+({num/@ud src/@p man/span} {(list move) _.})}
=+ wer=(etch way)
?>(?=($repeat -.wer) (fun p.wer q.wer r.wer))
::

34
arvo/hoon.hoon
View File

@ -1,4 +1,4 @@
!::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::: :::::: Preface ::::::
:::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::
?> ?=(@ .) :: atom subject
@ -184,6 +184,7 @@
$% {$axil p/base} :: base type
{$bark p/term q/tile} :: name
{$bush p/tile q/tile} :: pair+tag
{$dbug p/spot q/tile} :: set debug
{$fern p/{i/tile t/(list tile)}} :: plain selection
{$herb p/twig} :: gate
{$kelp p/{i/line t/(list line)}} :: tag selection
@ -6794,6 +6795,9 @@
::
{$bush *}
[%wtcl [%bust %bean] $(sec p.sec) $(sec q.sec)]
::
{$dbug *}
[%dbug p.sec $(sec q.sec)]
::
{$fern *}
|- ^- twig
@ -6826,6 +6830,7 @@
++ cloq
|- ^- {p/toga q/tile}
=. sec ?.(?=($herb -.sec) sec ~(boil ap p.sec))
?: ?=($dbug -.sec) $(sec q.sec)
?: ?=(^ -.sec)
=+ [one=$(sec p.sec) two=$(sec q.sec)]
[[%2 p.one p.two] [q.one q.two]]
@ -6894,6 +6899,9 @@
[%wtpt [[%& (peg axe 2)] ~] ^$(sec q.sec) ^$(sec p.sec)]
^$(sec q.sec)
^$(sec p.sec)
::
{$dbug *}
[%dbug p.sec $(sec q.sec)]
::
{$fern *}
|- ^- twig
@ -6979,15 +6987,23 @@
==
::
++ bile
^- (each line tile)
=+ boil
?: ?=({{$leaf *} *} -)
[%& [%leaf p.p.- q.p.-] q.-]
[%| -]
=+ tyl=boil
|- ^- (each line tile)
?: ?=({$dbug *} tyl)
$(tyl q.tyl)
?: ?=({{$dbug *} *} tyl)
$(p.tyl q.p.tyl)
?: ?=({{$leaf *} *} tyl)
[%& [%leaf p.p.tyl q.p.tyl] q.tyl]
[%| tyl]
::
++ boil
^- tile
?+ gen [%herb gen]
?+ gen [%herb gen]
{$base *} [%axil p.gen]
:: {$dbug *} [%dbug p.gen boil(gen q.gen)]
{$dbug *} boil(gen q.gen)
{$leaf *} [%leaf p.gen]
::
{$bcpt *} [%reed boil(gen p.gen) boil(gen q.gen)]
{$bccb *} [%weed p.gen]
@ -7017,10 +7033,6 @@
{$bcts *} [%bark p.gen boil(gen q.gen)]
{$bcwt *} =+ (turn p.gen |=(a/twig boil(gen a)))
?~(- [%axil %void] [%fern -])
::
{$leaf *} [%leaf p.gen]
{$base *} [%axil p.gen]
{$dbug *} boil(gen q.gen)
==
::
++ open