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)
==
?: ?=(%empty -.children.node)
~
?. (gte (lent ind) len)
~
:- ~
:* node ind
(~(put by map) ind node)
ship term
==
%_ $
index t.index
graph p.children.node
map (~(put by map) [ind node(children empty+~)])
map (~(put by map) ind node(children empty+~))
==
::
++ collect-firstborn