urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-08 14:09:29 +03:00
Code Issues Packages Projects Releases Wiki Activity

naming, pill close #589

Browse Source
This commit is contained in:
Anton Dyudin 2015-11-30 10:58:09 -08:00
parent 21d7d2fa41
commit b6aa4e3d06
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
arvo/hoon.hoon
View File

@ -4603,7 +4603,7 @@
|= [[sub=* fol=*] sky=$+(* (unit))] |= [[sub=* fol=*] sky=$+(* (unit))]
(mook (mink [sub fol] sky)) (mook (mink [sub fol] sky))
:: ::
++ mork :: XX name ++ moop
|= pon=(list ,[@ta *]) ^+ pon |= pon=(list ,[@ta *]) ^+ pon
?~ pon ~ ?~ pon ~
:- i.pon :- i.pon
@ -4629,7 +4629,7 @@
^- toon ^- toon
?. ?=([2 *] ton) ton ?. ?=([2 *] ton) ton
:- %2 :- %2
=. p.ton (mork p.ton) =. p.ton (moop p.ton)
=+ yel=(lent p.ton) =+ yel=(lent p.ton)
=. p.ton =. p.ton
?. (gth yel 256) p.ton ?. (gth yel 256) p.ton