From 437d7a9146889019d08e926ade2b45c3083633b7 Mon Sep 17 00:00:00 2001
From: pcmonk <pcmonk@asu.edu>
Date: Wed, 11 Jun 2014 10:12:10 -0700
Subject: [PATCH] Added set merge to nextbreach.

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

diff --git a/arvo/hoon.hoon b/arvo/hoon.hoon
index 0bc2703d55..8b7c25ea2a 100644
--- a/arvo/hoon.hoon
+++ b/arvo/hoon.hoon
@@ -1648,6 +1648,22 @@
       $(a l.a)
     $(a r.a)
   ::
+  +-  mer                                               ::  puts b in a, sorted
+    ~/  %mer
+    |*  b=_a
+    |-  ^+  a
+    ?~  b
+      a
+    ?~  a
+      b
+    ?.  (vor n.a n.b)
+      $(a b, b a)
+    ?:  =(n.b n.a)
+      [n.a $(a l.a, b l.b) $(a r.a, b r.b)]
+    ?:  (hor n.b n.a)
+      $(a [n.a $(a l.a, b [n.b l.b ~]) r.a], b r.b)
+    $(a [n.a l.a $(a r.a, b [n.b ~ r.b])], b l.b)
+  ::
   +-  put                                               ::  puts b in a, sorted
     ~/  %put
     |*  b=*