From 906411c06c63526f861212f67b73e992e84252b4 Mon Sep 17 00:00:00 2001
From: Charlie Cummings <chc4000@gmail.com>
Date: Tue, 21 Jun 2016 12:33:50 -0400
Subject: [PATCH] spin and spun

---
 arvo/hoon.hoon | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/arvo/hoon.hoon b/arvo/hoon.hoon
index 435ec4fd5..65174bf42 100644
--- a/arvo/hoon.hoon
+++ b/arvo/hoon.hoon
@@ -778,6 +778,24 @@
   ^+  t.a
   [i.a $(a (skim t.a |=(c/_i.a !(b c i.a))))]
 ::
+++  spin
+  |*  {a/(list) b/_|=({* *} [** +<+]) c/*}
+  ::  ?<  ?=($-([_?<(?=($~ a) i.a) _c] [* _c]) b)
+  |-
+  ?~  a
+    ~
+  =+  v=(b i.a c)
+  [i=-.v t=$(a t.a, c +.v)]
+::
+++  spun
+  |*  {a/(list) b/_|=({* *} [** +<+])}
+  =|  c/_+<+.b
+  |-
+  ?~  a
+    ~
+  =+  v=(b i.a c)
+  [i=-.v t=$(a t.a, c +.v)]
+::
 ++  swag                                                ::  infix
   |*  {{a/@ b/@} c/(list)}
   (scag +<-> (slag +<-< c))