Merge branch 'lf/md-hook-reload'

pkg/arvo/app/goad.hoon

@@ -7,6 +7,9 @@
     |=  force=?
     :~  [%pass /gall %arvo %g %goad force ~]
     ==
+  +$  state
+    $@  ~
+    [%0 ~]
   --
 |_  =bowl:gall
 +*  this  .
@@ -31,8 +34,13 @@
 ++  on-fail   on-fail:def
 ++  on-init   on-init:def
 ++  on-leave  on-leave:def
-++  on-load   on-load:def
+++  on-load   
+  |=  =vase
+  =+  !<(old=state vase)
+  ?^  old  `this
+  [(goad &) this]
+::
 ++  on-peek   on-peek:def
-++  on-save   on-save:def
+++  on-save   !>([%0 ~])
 ++  on-watch  on-watch:def
 --

pkg/arvo/app/metadata-hook.hoon

@@ -34,12 +34,15 @@
 ^-  agent:gall
 |_  =bowl:gall
 +*  this  .
-    def   ~(. (default-agent *agent:gall %|) bowl)
+    def   ~(. (default-agent this %|) bowl)
 ++  on-init   on-init:def
 ++  on-save   !>(state)
 ++  on-load
   |=  =vase
-  =+  !<(old=versioned-state vase)
+  =/  m-old=(unit versioned-state)
+     (mole |.(!<(versioned-state vase)))
+  ?~  m-old  `this
+  =*  old  u.m-old
   |^
   ?:  ?=(%2 -.old)
     `this