From d361a27781f3364ed64e99159f7ecbcd845e1555 Mon Sep 17 00:00:00 2001
From: Ted Blackman <ted@tlon.io>
Date: Sat, 11 Mar 2023 17:11:25 -0600
Subject: [PATCH] gall: +mo-cull compiles

---
 pkg/arvo/sys/vane/gall.hoon | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/pkg/arvo/sys/vane/gall.hoon b/pkg/arvo/sys/vane/gall.hoon
index 5d48f4641..457648bcc 100644
--- a/pkg/arvo/sys/vane/gall.hoon
+++ b/pkg/arvo/sys/vane/gall.hoon
@@ -319,7 +319,19 @@
   ++  mo-cull
     |=  =path
     ^+  mo-core
-    !!
+    =/  pit  (scrub-case path)
+    =/  yon  (snag-case path)
+    =/  old  (~(get by sky.state) pit)
+    ?~  old  ::  no-op if nonexistent
+      mo-core  ::  TODO trace
+    =.  sky.state  ::  delete all older paths
+      %+  ~(put by sky.state)  pit
+      :-  bob=`yon
+      %-  ~(gas by fan:*path-state)
+      %+  skim  ~(tap by fan.u.old)
+      |=  [yin=@ud val=(each noun @uvI)]
+      (gth yin yon)
+    mo-core
   ::  +mo-receive-core: receives an app core built by %ford.
   ::
   ::    Presuming we receive a good core, we first check to see if the agent