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

About to test final pyramid structure.

Browse Source
This commit is contained in:
C. Guy Yarvin 2016-01-18 20:50:49 -08:00
parent ec0c7e628f
commit c644c4d80d
1 changed files with 23 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
arvo/hoon.hoon
View File

@ -8116,32 +8116,29 @@
-- --
--
::
++ ram
++ nib
=+ (deft:lib)
|% +- $
=> +<
|%
++ rame
=> vant
|% ++ clom borm
++ chog fleg
++ ceut foat
-- --
::
++ gel
=+ (deft:lib)
|% +- $
=> +<
--
++ gelp
=> vunt
|% ++ clom clow
++ chog fram
++ ceut fult
-- --
::
++ god
=+ (gel)
--
++ ecbo (ecco rame)
++ eclo (ecco gelp)
++ ecco
=+ rame
|% +- $
=> +<
|%
++ ecco
|= {rum/clom rig/(list (pair wing twig))}
^- foat
%- tyle
@ -8151,16 +8148,18 @@
=+ zil=(halp q.i.rig)
=+ dar=(trep (stup mor) p.i.rig (stup zil))
(tasp dar zil mor)
-- --
-- -- --
--
::
++ oc
=+ inc=(deft:lib:ad)
=+ inc=(nib:ad)
|% +- $
=> inc
|%
++ echo
|= {rum/borm rig/(list (pair wing twig))}
:: =+ moo=`voat`(ecbo rum rig)
^- foat
%- tyle:vant
|- ^- foat
?~ rig (rosh rum)
@ -8184,7 +8183,7 @@
++ etco
|= {lop/palo rig/(list (pair wing twig))}
^- (pair span nock)
=+ cin=(oc (make:lib:ad))
=+ cin=(oc (nib:ad (make:lib:ad)))
=. rig (flop rig) :: XX this unbreaks, void order in devulc
=+ axe=(tend p.lop)
?: ?=($& -.q.lop)