urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-05 19:46:50 +03:00
Code Issues Packages Projects Releases Wiki Activity

Some cleanups.

Browse Source
This commit is contained in:
C. Guy Yarvin 2016-01-19 14:36:57 -08:00
parent fd0239a332
commit ecbc0054d4
1 changed files with 0 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
arvo/hoon.hoon
View File

@ -8053,11 +8053,6 @@
=> +<
|%
++ 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)
@ -8078,21 +8073,6 @@
++ 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 +<-) +<+]
++ vant
|% ++ trep |= {a/borm b/wing c/borm}
^- {axis borm}
@ -9050,21 +9030,11 @@
$& !!
== ==
::
++ seek
|= hyp/wing
^- polo
~|([%find hyp] (ride (find %read hyp)))
::
++ seed
|= hyp/wing
^- port
~|([%find hyp] (rude (find %read hyp)))
::
++ seek
|= hyp/wing
^- polo
~|([%find hyp] (ride (find %read hyp)))
::
++ take
|= {vit/vein duz/$+(span span)}
^- (pair axis span)