From 12bf28e2c8578be2b837e1b4631390806567d7d9 Mon Sep 17 00:00:00 2001
From: Joe Bryan <joemfb@gmail.com>
Date: Mon, 30 Nov 2020 17:11:06 -0800
Subject: [PATCH] hoon: adds +sew, inverse of +cut

---
 pkg/arvo/sys/hoon.hoon | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/pkg/arvo/sys/hoon.hoon b/pkg/arvo/sys/hoon.hoon
index 8e68085b6a..effda325f6 100644
--- a/pkg/arvo/sys/hoon.hoon
+++ b/pkg/arvo/sys/hoon.hoon
@@ -928,6 +928,15 @@
   |=  [a=bloq b=step c=@]
   (div c (bex (mul (bex a) b)))
 ::
+++  sew                                                 ::  stitch into
+  ~/  %sew
+  |=  [a=bloq [b=step c=step d=@] e=@]
+  ^-  @
+  %+  add
+    (can a b^e c^d ~)
+  =/  f  (add b c)
+  (lsh a f (rsh a f e))
+::
 ++  swp                                                 ::  naive rev bloq order
   ~/  %swp
   |=  [a=bloq b=@]