graph-store: speed up +validate-graph by using +turn and no longer virtualizing

This commit is contained in:
Logan Allen 2021-03-31 11:26:00 -05:00
parent 9cff3ba724
commit d939c91e78

View File

@ -259,6 +259,7 @@
?& !(~(has by archive) resource)
!(~(has by graphs) resource)
== ==
~| "validation of graph {<resource>} failed using mark {<mark>}"
?> (validate-graph graph mark)
=/ =logged-update:store
[%0 time %add-graph resource graph mark overwrite]
@ -681,15 +682,16 @@
%cb
/(scot %p our.bowl)/[q.byk.bowl]/(scot %da now.bowl)/[u.mark]
==
%+ roll (tap:orm graph)
|= [[=atom =node:store] out=?]
?& out
=(%& -:(mule |.((vale:dais [atom post.node]))))
?- -.children.node
%empty %.y
%graph ^$(graph p.children.node)
==
==
=/ unused
%+ turn (tap:orm graph)
|= [=atom =node:store]
^- ?
=/ side (vale:dais [atom post.node])
?- -.children.node
%empty %.y
%graph ^$(graph p.children.node)
==
%.y
::
++ poke-import
|= arc=*