From 2b95b308b86b718b4b0eb7d28ec250c39e924ed7 Mon Sep 17 00:00:00 2001
From: Liam Fitzgerald <liam.fitzgerald@tlon.io>
Date: Fri, 11 Dec 2020 12:21:47 +1000
Subject: [PATCH] graph-store: simplify node-siblings scries

---
 pkg/arvo/app/graph-store.hoon | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/pkg/arvo/app/graph-store.hoon b/pkg/arvo/app/graph-store.hoon
index eb862dae4..e444fe74a 100644
--- a/pkg/arvo/app/graph-store.hoon
+++ b/pkg/arvo/app/graph-store.hoon
@@ -872,7 +872,7 @@
     =/  older  ?=(%older i.t.t.path)
     =/  =ship  (slav %p i.t.t.t.path)
     =/  =term  i.t.t.t.t.path
-    =/  count=(unit @ud)  (slaw %ud i.t.t.t.t.t.path)
+    =/  count  (slav %ud i.t.t.t.t.t.path)
     =/  =index:store
       (turn t.t.t.t.t.t.path (cury slav %ud))
     =/  parent=index:store
@@ -888,10 +888,7 @@
       [ship term]
     %-  ~(gas by *(map index:store node:store))
     %+  turn
-      %-  ?~  count   same
-          |=   =(list [atom node:store])
-          (slag u.count list)
-      %-  ?:(older same flop)
+      =-  ?:(older (slag (sub (lent -) count) -) (scag count -))
       %-  tap:orm
       %+  subset:orm  u.graph
       =/  idx