graph-store: moved ~| to within var declarations so crashes don't affect anything else
node
:: recurse children
::
+ =/ parent=node:store
~| "index does not exist to add a node to!"
- =/ parent=node:store (need (get:orm graph atom))
+ (need (get:orm graph atom))
%_ parent
children
^- internal-graph:store
::
?~ t.index
+:`[* graph:store]`(del:orm graph atom)
+ =/ =node:store
~| "parent index does not exist to remove a node from!"
- =/ =node:store (need (get:orm graph atom))
+ (need (get:orm graph atom))
~| "child index does not exist to remove a node from!"
?> ?=(%graph -.children.node)
%^ put:orm
^- graph:store
?~ index graph
=* atom i.index
+ =/ =node:store
~| "node does not exist to add signatures to!"
- =/ =node:store (need (get:orm graph atom))
+ (need (get:orm graph atom))
:: last index in list
::
%^ put:orm
^- graph:store
?~ index graph
=* atom i.index
+ =/ =node:store
~| "node does not exist to add signatures to!"
- =/ =node:store (need (get:orm graph atom))
+ (need (get:orm graph atom))
:: last index in list
::
%^ put:orm
