add +-gas:ju

2024-12-12 10:29:01 +03:00 · 2015-06-02 17:40:34 -07:00 · 2015-06-02 17:40:34 -07:00 · 2e30e2b5e6
commit 2e30e2b5e6
parent a46173ce74
1 changed files with 8 additions and 0 deletions
--- 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)