graph-store: last tweak to make firstborn fetch perfectly

This commit is contained in:
Logan Allen 2021-05-18 16:56:03 -05:00
parent 6b102450a5
commit 8146a65f0a

View File

@ -914,11 +914,17 @@
ind (snoc ind atom) ind (snoc ind atom)
== ==
?: ?=(%empty -.children.node) ?: ?=(%empty -.children.node)
~ ?. (gte (lent ind) len)
~
:- ~
:* node ind
(~(put by map) ind node)
ship term
==
%_ $ %_ $
index t.index index t.index
graph p.children.node graph p.children.node
map (~(put by map) [ind node(children empty+~)]) map (~(put by map) ind node(children empty+~))
== ==
:: ::
++ collect-firstborn ++ collect-firstborn