graph-store: fix scries

This commit is contained in:
Liam Fitzgerald 2021-07-21 12:25:23 +10:00
parent 5f341acc47
commit fad3b240c2
No known key found for this signature in database
GPG Key ID: D390E12C61D1CFFB

View File

@ -756,14 +756,10 @@
(turn t.t.t.t.pax (cury slav %ud))
=/ parent=index:store (snip index)
=/ node (get-node graph parent)
?: ?| ?& ?=(~ node)
?=(^ parent)
==
::
?& ?=(^ parent)
?| ?=(%oldest i.t.pax)
?=(%newest i.t.pax)
== == ==
?: ?& ?=(~ node)
?=(^ parent)
?=(?(%older %newer) i.t.pax)
==
[~ ~]
=/ children=graph:store
?~ node