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

Additional caching in the arvo kernel

sys/arvo.hoon

@@ -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))))

sys/hoon.hoon

@@ -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}