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
/(scot %p our.bowl)/[q.byk.bowl]/(scot %da now.bowl)/[u.mark]
==
=/ unused
%+ turn (tap:orm graph)
|= [=atom =node:store]
^- ?
=/ side (vale:dais [atom post.node])
?- -.children.node
%+ roll (tap:orm graph)
|= [[=atom =node:store] out=?]
^- ?
?& ?=(^ (vale:dais [atom post.node]))
?- -.children.node
%empty %.y
%graph ^$(graph p.children.node)
==
%.y
== ==
::
++ poke-import
|= arc=*