clay: bump kelvin, refactor

pkg/arvo/sys.kelvin

@@ -1 +1 @@
-[%zuse 419]
+[%zuse 418]

pkg/arvo/sys/lull.hoon

@@ -3,7 +3,7 @@
 ::
 =>  ..part
 |%
-++  lull  %330
+++  lull  %329
 ::                                                      ::  ::
 ::::                                                    ::  ::  (1) models
   ::                                                    ::  ::

pkg/arvo/sys/vane/clay.hoon

@@ -125,11 +125,15 @@
 ::  having changed; this lets us short-circuit that in some cases.
 ::  Whenever you give an `%ergo`, you must update this.
 ::
+::  XX state upgrade, added `tom` and `nor`
+::
 +$  dome
   $:  ank=ankh                                          ::  state
       let=aeon                                          ::  top id
       hit=(map aeon tako)                               ::  versions by id
       lab=(map @tas aeon)                               ::  labels
+      ::  tom=(map tako norm)                               ::  tomb policies
+      ::  nor=norm                                          ::  future policy
       mim=(map path mime)                               ::  mime cache
       fod=ford-cache                                    ::  ford cache
   ==                                                    ::
@@ -184,6 +188,10 @@
       bar=(set plop)                                    ::  new content
   ==                                                    ::
 ::
+::  Tombstone policy
+::
++$  norm  (axal ?)
+::
 ::  Formal vane state.
 ::
 ::  --  `rom` is our domestic state.
@@ -4423,7 +4431,7 @@
       abet:(perm:den pax.req rit.req)
     [mos ..^$]
   ::
-      %tomb  (tomb clue.req)
+      %tomb  (tomb-clue:tomb clue.req)
       %trim  [~ ..^$]
   ::
       %vega
@@ -5143,26 +5151,29 @@
           blobs+&+lat.ran.ruf
       ==
   ==
-::  +tomb: safely remove objects
 ::
 ++  tomb
-  |=  =clue
+  |%
-  ^-  [(list move) _..^$]
+  ::  +tomb-clue: safely remove objects
-  |^
+  ::
-  ?-    -.clue
+  ++  tomb-clue
-      %lobe  `(tomb-lobe lobe.clue &)
+    |=  =clue
-      %all
+    ^-  [(list move) _..^$]
-    =/  lobes=(list [=lobe =blob])  ~(tap by lat.ran.ruf)
+    ?-    -.clue
-    |-
+        %lobe  `(tomb-lobe lobe.clue &)
-    ?~  lobes
+        %all
-      `..^^^$
+      =/  lobes=(list [=lobe =blob])  ~(tap by lat.ran.ruf)
-    =.  ..^^^$  (tomb-lobe lobe.i.lobes &)
+      |-
-    $(lobes t.lobes)
+      ?~  lobes
-  ==
+        `..^^$
+      =.  ..^^$  (tomb-lobe lobe.i.lobes &)
+      $(lobes t.lobes)
+    ==
+  ::  +tomb-lobe: remove specific lobe
   ::
   ++  tomb-lobe
     |=  [lob=lobe veb=?]
-    ^+  ..^^^$
+    ^+  ..^$
     =/  bol  (~(get by lat.ran.ruf) lob)
     ?~  bol
       (noop veb leaf+"clay: lobe doesn't exist" ~)
@@ -5213,7 +5224,7 @@
   ++  noop
     |=  [veb=? =tang]
     ?.  veb
-      ..^^^$
+      ..^$
-    ((slog tang) ..^^^$)
+    ((slog tang) ..^$)
   --
 --

pkg/arvo/sys/zuse.hoon

@@ -4,7 +4,7 @@
 =>  ..lull
 ~%  %zuse  ..part  ~
 |%
-++  zuse  %419
+++  zuse  %418
 ::                                                      ::  ::
 ::::                                                    ::  ::  (2) engines
   ::                                                    ::  ::