adds +-gaf:by (non-colliding gas)

2024-12-02 08:55:07 +03:00 · 2016-07-30 21:44:14 -04:00 · 2016-07-30 21:44:14 -04:00 · 40a232e642
commit 40a232e642
parent ab73f364a2
1 changed files with 9 additions and 0 deletions
--- a/arvo/hoon.hoon
+++ b/arvo/hoon.hoon
@ -2695,6 +2695,15 @@
      a
    $(b t.b, a (put p.i.b q.i.b))
  ::
+  +-  gaf                                               ::  concat, fail on dupe
+    ~/  %gaf
+    |=  b/(list _?>(?=(^ a) n.a))
+    |-  ^+  a
+    ?~  b
+      a
+    ?<  (has p.i.b)
+    $(b t.b, a (put p.i.b q.i.b))
+  ::
  +-  get                                               ::  grab value by key
    ~/  %get
    |=  b/*