ames: add %rift to %stir

pkg/arvo/sys/vane/ames.hoon

@@ -1755,6 +1755,20 @@
       ++  on-stir
         |=  arg=@t
         ^+  event-core
+        |^  ?+  arg  do-stir
+              %rift  do-rift
+            ==
+        ::
+        ++  do-rift
+          =/  =rift
+            =-  ~|(%no-rift (,@ q.q:(need (need -))))
+            (rof ~ %j `beam`[[our %rift %da now] /(scot %p our)])
+          ?:  =(rift rift.ames-state)
+            event-core
+          ~&  "ames: fixing rift from {<rift.ames-state>} to {<rift>}"
+          event-core(ames-state ames-state(rift rift))
+        ::
+        ++  do-stir
           =/  want=(set [@da ^duct])
             %-  ~(rep by peers.ames-state)
             |=  [[who=ship s=ship-state] acc=(set [@da ^duct])]
@@ -1790,6 +1804,7 @@
           |=  [[wen=@da hen=^duct] this=_event-core]
           ?>  ?=([^ *] hen)
           (emit:this t.hen %pass t.i.hen %b %rest wen)
+        --
       ::  +on-crud: handle event failure; print to dill
       ::
       ++  on-crud