From 2e30e2b5e6faa9d891e2637508fd4fd353fa83fb Mon Sep 17 00:00:00 2001
From: Anton Dyudin <ohAitch@gmail.com>
Date: Tue, 2 Jun 2015 17:40:34 -0700
Subject: [PATCH] add +-gas:ju

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

diff --git a/base/arvo/hoon.hoon b/base/arvo/hoon.hoon
index 1a370fc5d2..7c3c860d3b 100644
--- a/base/arvo/hoon.hoon
+++ b/base/arvo/hoon.hoon
@@ -2051,6 +2051,14 @@
       (~(del by a) b)
     (~(put by a) b e)
   ::
+  +-  gas                                               ::  concatenate
+    |*  b=(list ,[p=* q=*])
+    =>  .(b `(list ,_?>(?=([[* ^] ^] a) [p=p q=n.q]:n.a))`b)
+    |-  ^+  a
+    ?~  b
+      a
+    $(b t.b, a (put(+< a) p.i.b q.i.b))
+  ::
   +-  get                                               ::  gets set by key
     |*  b=*
     =+  c=(~(get by a) b)