urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-14 20:02:51 +03:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #896 from urbit/more-arvo-cache

Browse Source 
Additional caching in the arvo kernel
This commit is contained in:
Elliot Glaysher 2018-11-29 11:28:16 -08:00 committed by GitHub
commit 708396cfbf
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
sys/arvo.hoon
View File

@ -140,7 +140,7 @@
::
++ wink :: deploy
|= {now/@da eny/@ ski/slyd}
=+ rig=(slym q.sew +<) :: activate vane
=^ rig p.sew (~(slym wa p.sew) q.sew +<) :: activate vane
~% %wink +>+> ~
|%
++ slid
@ -162,12 +162,14 @@
|= {gat/vase hil/mill}
^- (unit (pair vase worm))
=^ sam p.sew (~(slot wa p.sew) 6 gat)
=+ ^= hig
=^ hig p.sew
?- -.hil
%& (~(nest wa p.sew) p.sam p.p.hil)
%| (~(nets wa p.sew) p.sam p.p.hil)
==
?.(-.hig ~ `[(slym gat +>.hil) +.hig])
?. hig
~
`(~(slym wa p.sew) gat +>.hil)
::
++ slur-a ~/(%slur-a |=({gat/vase hil/mill} =+(%a (slur gat hil))))
++ slur-b ~/(%slur-b |=({gat/vase hil/mill} =+(%b (slur gat hil))))

7
sys/hoon.hoon
View File

@ -13904,7 +13904,7 @@
++ wa !: :: cached compile
|_ worm
++ nell |=(ref/type (nest [%cell %noun %noun] ref)) :: nest in cell
++ nest :: nest:ut
++ nest :: nest:ut, cached
|= {sut/type ref/type}
^- {? worm}
?: (~(has in nes) [sut ref]) [& +>+<]
@ -13995,6 +13995,11 @@
=^ gun +>+< (mint p.vax [%$ axe])
[[p.gun .*(q.vax [0 axe])] +>+<.$]
::
++ slym :: ++slym, cached
|= {gat/vase sam/*}
^- [vase worm]
(slap gat(+<.q sam) [%limb %$])
::
++ sped :: specialize vase
|= vax/vase
^- {vase worm}