graph-push-hook: fixed bugs with validator conversions and with transform

This commit is contained in:
Logan Allen 2021-02-25 12:41:17 -06:00
parent 19005f3ca3
commit ae8018d660
3 changed files with 11 additions and 10 deletions

View File

@ -79,7 +79,7 @@
=/ mark (get-mark:gra rid)
?~ mark `vas
|^
=/ transform=$-([index:store post:store atom ?] [index:store post:store])
=/ transform
!< $-([index:store post:store atom ?] [index:store post:store])
%. !>(*indexed-post:store)
.^(tube:clay (scry:hc %cc %home /[u.mark]/transform-add-nodes))
@ -131,11 +131,12 @@
=/ l (lent index)
=/ parent-modified=?
%- ~(rep in indices)
|= [i=index:store out=?]
|= [i=index:store out=_|]
?: out out
?: (lte l (lent i))
=/ k (lent i)
?: (lte l k)
%.n
=((swag [0 l] i) index)
=((swag [0 k] index) i)
=/ [ind=index:store =post:store]
(transform index post.node now.bowl parent-modified)
:- (~(put in indices) index)

View File

@ -40,8 +40,8 @@
[@ @ ~] [i.index atom ~]
[@ @ @ ~]
?: was-parent-modified
[i.index atom atom ~]
[i.index i.t.index atom ~]
[i.index atom i.t.t.index ~]
index
==
--
++ grab

View File

@ -41,15 +41,15 @@
::
[@ %1 @ ~]
?: was-parent-modified
[atom %1 atom ~]
[i.index %1 atom ~]
[atom %1 i.t.t.index ~]
index
::
[@ %2 ~] [atom %2 ~]
[@ %2 @ ~] [i.index %2 atom ~]
[@ %2 @ @ ~]
?: was-parent-modified
[i.index %2 atom atom ~]
[i.index %2 i.t.t.index atom ~]
[i.index %2 atom i.t.t.t.index ~]
index
==
--
++ grab