Inline ++to-list.

2024-09-22 16:09:13 +03:00 · 2017-09-27 22:08:40 -07:00 · 2017-09-27 22:08:40 -07:00 · 37f65c099d
commit 37f65c099d
parent 1d8614f2ee
1 changed files with 7 additions and 2 deletions
--- a/lib/new-hoon.hoon
+++ b/lib/new-hoon.hoon
@ -1254,9 +1254,14 @@
  +|
  ::
  ++  to-list
-    :>  todo: copy over or something.
+    :>  creates a list of pairs from the tree.
    |*  a/(map)
-    ~(tap by a)
+    =|  b/(list _n.-.a)
+    |-
+    ^+  b
+    ?~  a
+      b
+    $(a r.a, b [n.a $(a l.a)])
  ::
  ++  from-list
    :>  creates a tree from a list.