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