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

Fixed %deet. Really about to prune.

Browse Source
This commit is contained in:
C. Guy Yarvin 2015-12-22 20:57:10 -08:00
parent 8f63262b74
commit c39ca2e92a
1 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
arvo/hoon.hoon
View File

@ -1,4 +1,4 @@
:::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::
!::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::: :::::: Preface ::::::
:::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::
?> ?=(@ .) :: atom subject
@ -184,7 +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
{$deet 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
@ -6796,7 +6796,7 @@
{$bush *}
[%wtcl [%bust %bean] $(sec p.sec) $(sec q.sec)]
::
{$dbug *}
{$deet *}
[%dbug p.sec $(sec q.sec)]
::
{$fern *}
@ -6830,7 +6830,7 @@
++ cloq
|- ^- {p/toga q/tile}
=. sec ?.(?=($herb -.sec) sec ~(boil ap p.sec))
?: ?=($dbug -.sec) $(sec q.sec)
?: ?=($deet -.sec) $(sec q.sec)
?: ?=(^ -.sec)
=+ [one=$(sec p.sec) two=$(sec q.sec)]
[[%2 p.one p.two] [q.one q.two]]
@ -6900,7 +6900,7 @@
^$(sec q.sec)
^$(sec p.sec)
::
{$dbug *}
{$deet *}
[%dbug p.sec $(sec q.sec)]
::
{$fern *}
@ -6987,22 +6987,21 @@
==
::
++ bile
=+ tyl=boil
=+ sec=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]
?: ?=({$deet *} sec)
$(sec q.sec)
?: ?=({{$deet *} *} sec)
$(p.sec q.p.sec)
?: ?=({{$leaf *} *} sec)
[%& [%leaf p.p.sec q.p.sec] q.sec]
[%| sec]
::
++ boil
^- tile
?+ gen [%herb gen]
{$base *} [%axil p.gen]
:: {$dbug *} [%dbug p.gen boil(gen q.gen)]
{$dbug *} boil(gen q.gen)
{$dbug *} [%deet p.gen boil(gen q.gen)]
{$leaf *} [%leaf p.gen]
::
{$bcpt *} [%reed boil(gen p.gen) boil(gen q.gen)]
@ -7020,6 +7019,7 @@
boil(gen i.p.gen)
=+ :* def=bile(gen i.p.gen)
^= end ^- (list line)
~| %bccn-foul
%+ turn `(list twig)`t.p.gen
|=(a/twig =+(bile(gen a) ?>(?=($& -<) ->)))
==