moves +code scry to %jael, removes obsolete %ames scrys

gen/code.hoon

@@ -10,6 +10,7 @@
 :-  %tang
 :_  ~
 :-  %leaf
+=*  our  p.bec
 %+  slag  1
 %+  scow  %p
-.^(@p %a /(scot %p p.bec)/code/(scot %da now)/(scot %p p.bec))
+.^(@p %j /(scot %p our)/code/(scot %da now)/(scot %p our))

lib/hood/write.hoon

@@ -114,7 +114,7 @@
 ::
 ++  ames-secret
   ^-  @t
-  =-  (crip +:<.^(@p %a pax)>)
+  =-  (crip +:<.^(@p %j pax)>)
   pax=/(scot %p our)/code/(scot %da now)/(scot %p our)
 ::
 ++  poke-sec-atom

sys/vane/ames.hoon

@@ -1270,14 +1270,10 @@
       =+  hun=(slaw %p i.tyl)
       ?~  hun  [~ ~]
       ?.  =(`@`0 ren)  ~
-      ?+    lot  ~
-          [$$ %ud @]
-        (perm p.why u.hun q.p.lot [syd t.tyl])
-      ::
-          [$$ %da @]
-        ?.  =(now q.p.lot)  ~
-        (temp p.why u.hun [syd t.tyl])
-      ==
+      ?.  ?=([$$ %da @] lot)
+        ~
+      ?.  =(now q.p.lot)  ~
+      (temp p.why u.hun [syd t.tyl])
     ::
     ++  stay  fox
     ++  take                                            ::  accept response
@@ -1513,20 +1509,6 @@
     =^  toe  fox  (clop now hen i.p.fuy)
     $(p.fuy t.p.fuy, out (weld (flop toe) out))
   ::
-  ++  perm
-    |=  [our=ship his=ship mar=@ud tyl=path]
-    ^-  (unit (unit cage))
-    ?~  tyl  ~
-    =+  gys=(~(us go ton.fox) our)
-    ?~  gys  ~
-    ?.  =(our his)
-      ~
-    ::  XX move to %jael
-    ::
-    ?:  ?=([%code ~] tyl)
-      ``[%noun !>((end 6 1 (shaf %pass (shax sec:ex:cub:sen:u.gys))))]
-    ~
-  ::
   ++  temp
     |=  [our=ship his=ship tyl=path]
     ^-  (unit (unit cage))
@@ -1540,20 +1522,7 @@
       ?.  =(our his)
         ~
       ``[%noun !>(pals:(~(um am [now fox ski]) our))]
-    :: XX move to %jael
-    ::
-    ?.  ?=([%life ~] tyl)
-      =+  muc=$(tyl [%life ~])
-      (perm our his ?~(muc 0 (fall ((soft @ud) u.muc) 0)) tyl)
-    =+  gys=(~(us go ton.fox) our)
-    ?~  gys  ~
-    ?.  =(our his)
-      =+  fod=(~(get by hoc.saf.u.gys) his)
-      ?~  fod  ~
-      ?~  lew.wod.u.fod  ~
-      ``[%noun !>(`@ud`life.u.lew.wod.u.fod)]
-    ?~  val.saf.u.gys  ~
-    ``[%noun !>(`@ud`p.i.val.saf.u.gys)]
+    ~
   ::
   ++  wegh
     ^-  mass

sys/vane/eyre.hoon

@@ -1206,7 +1206,7 @@
     ^-  @ta
     =+  pax=/(scot %p our)/code/(scot %da now)/(scot %p our)
     %^  rsh  3  1
-    (scot %p (@ (need (sky [151 %noun] %a pax))))
+    (scot %p (@ (need (sky [151 %noun] %j pax))))
   ::
   ::
   ++  handle

sys/vane/jael.hoon

@@ -2130,12 +2130,26 @@
           tyl/spur
       ==
   ^-  (unit (unit cage))
-  ::  XX security
+  ::  XX review for security, stability, cases other than now
   ::
   ?.  =(lot [%$ %da now])  ~
   ?.  =(%$ ren)  [~ ~]
   ?+    syd
       ~
+  ::
+      %code
+    ?.  ?=([@ ~] tyl)  [~ ~]
+    ?.  ?&  ?=(%& -.why)
+            (~(has by pry.urb.lex) p.why)
+        ==
+      [~ ~]
+    =/  who  (slaw %p i.tyl)
+    ?~  who  [~ ~]
+    =/  sec  (~(got by jaw.own.sub.lex) lyf.own.sub.lex)
+    =/  cub  (nol:nu:crub:crypto sec)
+    ::  XX use pac:ex:cub?
+    ::
+    ``[%noun !>((end 6 1 (shaf %pass (shax sec:ex:cub))))]
   ::
       %life
     ?.  ?=([@ ~] tyl)  [~ ~]