cleans up %jael /=deed= scry

sys/vane/ames.hoon

@@ -515,8 +515,10 @@
     ++  deed
       ~/  %deed
       |=  [who=ship lyf=life]
-      ;;  ^deed
-      %-  need  %-  need
+      ^-  (unit ^deed)
+      =;  ded
+        ?~(ded ~ u.ded)
+      ;;  (unit (unit ^deed))
       %-  (sloy-light ski)
       =/  pur=spur
         /(scot %ud lyf)/(scot %p who)
@@ -564,7 +566,7 @@
           law.ton
         ::  save our deed (for comet/moon communication)
         ::
-        (deed our life)
+        (need (deed our life))
       ::
           val.ton
         ::  save our secrets, ready for action

sys/vane/jael.hoon

@@ -2298,12 +2298,15 @@
       [u.lyf pub:ex:cub sig.own.sub.lex]
     ::
     =/  pub  (~(get by kyz.puk.sub.lex) u.who)
-    ?~  pub  ~
-    :: XX check lyf
-    ::
+    ?~  pub
+      ~
+    ?:  (gth u.lyf life.u.pub)
+      ~
+    =/  pas  (~(get by pubs.u.pub) u.lyf)
+    ?~  pas
+      ~
     :^  ~  ~  %noun
-    !>  ^-  deed:ames
-    [life.u.pub (~(got by pubs.u.pub) life.u.pub) ~]
+    !>  `deed:ames`[u.lyf u.pas ~]
   ::
       %earl
     ?.  ?=([@ @ @ ~] tyl)  [~ ~]