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

Checked.

Browse Source
This commit is contained in:
C. Guy Yarvin 2016-01-19 13:23:53 -08:00
parent 17de390bb5
commit fd0239a332
1 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
arvo/hoon.hoon
View File

@ -8053,6 +8053,11 @@
=> +<
|%
++ halp $+(twig fleg)
++ terp $+({borm wing borm} (pair axis borm))
++ toda $+({{axis clow} fleg fult} fult)
++ todt $+({{axis borm} fleg foat} foat)
++ tusp $+({clow wing borm} {axis clow})
++ tyte $+(fult foat)
++ vant
|% ++ trep $+({borm wing borm} {axis borm})
++ tasp $+({{axis borm} fleg foat} foat)
@ -8073,6 +8078,18 @@
++ halp |~ a/twig
^- fleg
(mint %noun a)
++ terp |~ {a/borm b/wing c/borm}
^- (pair axis borm)
(tack(sut a) b c)
++ toda |~ {a/(pair axis clow) b/fleg c/fult}
^- fult
[q.a [[p.a (pust b)] (pust c)]]
++ todt |= {a/(pair axis borm) b/fleg c/foat}
^- foat
[q.a [[p.a (pust b)] (pust c)]]
++ tusp |~ {a/clow b/wing c/borm}
^- (pair axis clow)
(toss b c a)
++ tyte |~ fult
^- foat
[(fire +<-) +<+]
@ -8132,9 +8149,6 @@
=+ dar=(trep (stup mor) p.i.rig (stup zil))
(tasp dar zil mor)
-- -- --
::
++ make (nib make:lib)
:: ++ type
--
::
++ oc