graph-store: fewer allocations in +validate-graph

This commit is contained in:
Logan Allen 2021-03-31 12:13:42 -05:00
parent d939c91e78
commit d34045f190

View File

@ -682,16 +682,14 @@
%cb %cb
/(scot %p our.bowl)/[q.byk.bowl]/(scot %da now.bowl)/[u.mark] /(scot %p our.bowl)/[q.byk.bowl]/(scot %da now.bowl)/[u.mark]
== ==
=/ unused %+ roll (tap:orm graph)
%+ turn (tap:orm graph) |= [[=atom =node:store] out=?]
|= [=atom =node:store] ^- ?
^- ? ?& ?=(^ (vale:dais [atom post.node]))
=/ side (vale:dais [atom post.node]) ?- -.children.node
?- -.children.node
%empty %.y %empty %.y
%graph ^$(graph p.children.node) %graph ^$(graph p.children.node)
== == ==
%.y
:: ::
++ poke-import ++ poke-import
|= arc=* |= arc=*