hoon: adds atom map gates +run and +rut

2024-11-24 13:06:09 +03:00 · 2020-11-30 14:32:40 -08:00 · 2020-11-30 14:32:40 -08:00 · 3f71826d6b
commit 3f71826d6b
parent 12bf28e2c8
1 changed files with 10 additions and 0 deletions
--- a/pkg/arvo/sys/hoon.hoon
+++ b/pkg/arvo/sys/hoon.hoon
@ -928,6 +928,16 @@
  |=  [a=bloq b=step c=@]
  (div c (bex (mul (bex a) b)))
 ::
++  run                                                 ::  +turn into atom
+  ~/  %run
+  |=  [a=bite b=@ c=$-(@ @)]
+  (rep a (turn (rip a b) c))
+::
++  rut                                                 ::  +turn into list
+  ~/  %rut
+  |*  [a=bite b=@ c=$-(@ *)]
+  (turn (rip a b) c)
+::
 ++  sew                                                 ::  stitch into
  ~/  %sew
  |=  [a=bloq [b=step c=step d=@] e=@]