From 2d7c28151573827174f3113b6c961b5a4c5f7b1c Mon Sep 17 00:00:00 2001
From: Elliot Glaysher <elliot@tlon.io>
Date: Thu, 6 Dec 2018 13:22:35 -0800
Subject: [PATCH] Don't do two passes in the unjetted +sort

While jetting +sort (urbit/urbit#1088), I made it do only a single
pass to separate the list around a pivot instead of using two. Do
this in the hoon code, too.
---
 sys/hoon.hoon | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/sys/hoon.hoon b/sys/hoon.hoon
index 12e7a00c03..bd86fc77c8 100644
--- a/sys/hoon.hoon
+++ b/sys/hoon.hoon
@@ -787,10 +787,11 @@
   =>  .(a ^.(homo a))
   |-  ^+  a
   ?~  a  ~
+  =+  s=(skid t.a |:(c=i.a (b c i.a)))
   %+  weld
-    $(a (skim t.a |:(c=i.a (b c i.a))))
+    $(a p.s)
   ^+  t.a
-  [i.a $(a (skim t.a |:(c=i.a !(b c i.a))))]
+  [i.a $(a q.s)]
 ::
 ++  spin                                                ::  stateful turn
   ::