Solve #5706 - Create vase at each branch of t.t.t.t.path

#5706 describes an issue with using `!>` higher up in `graph-store` where multiple types are potentially included in the vase's construction, resulting in a type of `?((unit time) update-log:store)` when scrying the internals - no fun!
This commit is contained in:
rabsef-bicrym 2022-05-06 13:42:11 -07:00 committed by GitHub
parent 1f76be7f4b
commit a7c5104f46
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -679,20 +679,19 @@
=/ update-log =/ update-log
(~(get by update-logs) [ship term]) (~(get by update-logs) [ship term])
:- ~ :- ~ :- %noun :- ~ :- ~ :- %noun
!>
?+ t.t.t.t.path (on-peek:def path) ?+ t.t.t.t.path (on-peek:def path)
~ ~
^- update-log:store !> ^- update-log:store
?~(update-log *update-log:store u.update-log) ?~(update-log *update-log:store u.update-log)
:: ::
[%latest ~] [%latest ~]
^- (unit time) !> ^- (unit time)
%+ biff update-log %+ biff update-log
|= =update-log:store |= =update-log:store
(bind (pry:orm-log:store update-log) head) (bind (pry:orm-log:store update-log) head)
:: ::
[%subset @ @ ~] [%subset @ @ ~]
^- update-log:store !> ^- update-log:store
?~ update-log *update-log:store ?~ update-log *update-log:store
=* start i.t.t.t.t.t.path =* start i.t.t.t.t.t.path
=* end i.t.t.t.t.t.t.path =* end i.t.t.t.t.t.t.path