urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-06 04:07:23 +03:00
Code Issues Packages Projects Releases Wiki Activity

Minor tweaks.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-07-16 11:54:53 -07:00
parent ff5e56a05c
commit 5b8844207e
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
arvo/hoon.hoon
View File

@ -15,7 +15,7 @@
:::::: :::::::::::::::::::::::::::::::::::::::::::::::::::::: :::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::
~% %k.164 ~ ~ :: ~% %k.164 ~ ~ ::
|% :: |% ::
++ stub 164 :: version stub ++ stub %164 :: version stub
-- :: -- ::
:::::: :::::::::::::::::::::::::::::::::::::::::::::::::::::: :::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::: :::::: volume 1, Hoon models :::::: :::::: :::::: volume 1, Hoon models ::::::
@ -1908,7 +1908,7 @@
$(b [n.b $(b l.b, a [n.a l.a ~]) r.b], a r.a) $(b [n.b $(b l.b, a [n.a l.a ~]) r.b], a r.a)
$(b [n.b l.b $(b r.b, a [n.a ~ r.a])], a l.a) $(b [n.b l.b $(b r.b, a [n.a ~ r.a])], a l.a)
:: ::
+- wyt :: depth of set +- wyt :: size of set
.+ .+
|- ^- @ |- ^- @
?~(a 0 +((add $(a l.a) $(a r.a)))) ?~(a 0 +((add $(a l.a) $(a r.a))))
@ -6592,7 +6592,7 @@
[%tshp *] [%tsls q.gen p.gen] [%tshp *] [%tsls q.gen p.gen]
[%tssg *] [%tssg *]
|- ^- twig |- ^- twig
?~ p.gen [%zpzp ~] ?~ p.gen [%$ 1]
?~ t.p.gen i.p.gen ?~ t.p.gen i.p.gen
[%tsgr i.p.gen $(p.gen t.p.gen)] [%tsgr i.p.gen $(p.gen t.p.gen)]
:: ::

2
arvo/zuse.hoon
View File

@ -2644,5 +2644,5 @@
++ wund (list ,[p=life q=ring r=acru]) :: mace in action ++ wund (list ,[p=life q=ring r=acru]) :: mace in action
++ will (list deed) :: certificate ++ will (list deed) :: certificate
++ worm ,* :: vase of tart ++ worm ,* :: vase of tart
++ zuse 314 :: hoon/zuse kelvin ++ zuse %314 :: hoon/zuse kelvin
-- --