From 855e97d17a2c2c9112f2101260d1601cc418d49c Mon Sep 17 00:00:00 2001
From: Ted Blackman <ted@tlon.io>
Date: Mon, 27 Sep 2021 19:34:15 -0400
Subject: [PATCH] kiln: update other agents on kernel updates

---
 pkg/arvo/lib/hood/kiln.hoon | 31 +++++++++++++++----------------
 pkg/base-dev/sur/hood.hoon  |  3 +--
 2 files changed, 16 insertions(+), 18 deletions(-)

diff --git a/pkg/arvo/lib/hood/kiln.hoon b/pkg/arvo/lib/hood/kiln.hoon
index ae87b3e609..2b9169cba1 100644
--- a/pkg/arvo/lib/hood/kiln.hoon
+++ b/pkg/arvo/lib/hood/kiln.hoon
@@ -685,7 +685,7 @@
     ?:  ?=(%jolt i.t.wire)
       (take-onto wire syn)
     ?:  ?=(%listen i.t.wire)
-      abet:(take-listen wire syn)
+      (take-listen wire syn)
     =<  abet
     =.  vats  (from-wire wire)
     ?+    i.t.wire
@@ -812,30 +812,29 @@
   ::
   ++  take-listen
     |=  [=wire syn=sign-arvo]
-    ^+  vats
+    ^+  kiln
     ?>  ?=([@ %writ ~ *] syn)
     =/  lac=desk  (head wire)
     ::  ignore spurious updates from clay on desks we've uninstalled
     ::
     ?.  (~(has by ark) lac)
-      vats
-    =.  vats  (from-wire wire)
-    =.  vats  (emit listen:pass)
-    take-commit
-  ::
-  ++  take-commit
-    ^+  vats
-    ~>  %slog.(fmt "commit detected at {here}")
-    =.  vats  (emit (diff:give %commit loc rak))
-    =?  vats  liv.rein.rak  update-running-dudes
-    ?.  =(%base loc)
-      vats
+      kiln
+    =.  kiln
+      =<  abet
+      =.  vats  (from-wire wire)
+      ~>  %slog.(fmt "commit detected at {here}")
+      =.  vats  (emil listen:pass (diff:give %commit loc rak) ~)
+      ?.  liv.rein.rak
+        ~>  %slog.(fmt "{<loc>} not running")
+        vats
+      update-running-dudes
+    ?.  =(%base lac)
+      kiln
     =/  kel=[@tas @ud]
       ?~  rail.rak         zuse/zuse
       ?~  next.u.rail.rak  zuse/zuse
       weft.i.next.u.rail.rak
-    =.  kiln  (bump-many kel (all-desks-but (sy %base ~)))
-    vats
+    (bump-many kel (all-desks-but (sy %base ~)))
   ::
   ++  take-merge-main
     |=  syn=sign-arvo
diff --git a/pkg/base-dev/sur/hood.hoon b/pkg/base-dev/sur/hood.hoon
index 9b48a60db6..46d54751e4 100644
--- a/pkg/base-dev/sur/hood.hoon
+++ b/pkg/base-dev/sur/hood.hoon
@@ -170,8 +170,7 @@
           =rein
       ==
   ^-  [jolt=(list dude) idle=(list dude)]
-  =/  all=(list dude)
-    (read-bill local)
+  =/  all=(list dude)  (read-bill local)
   =/  want  (get-apps-want all rein)
   =/  have  (get-apps-live local)
   [want (skip have ~(has in (sy want)))]