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

Additional caching in the arvo kernel

Browse Source
This commit is contained in:
Elliot Glaysher 2018-11-26 11:31:34 -08:00
parent 8ead43f82c
commit fc37eedfd3
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

@ -132,7 +132,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 +>+> ~
|%
++ doze
@ -159,12 +159,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

@ -13901,7 +13901,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]) [& +>+<]
@ -13992,6 +13992,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}