+on-load fixed

This commit is contained in:
dachus 2023-02-16 14:14:16 -06:00
parent a6a64a56b0
commit 1dae329400

View File

@ -26,11 +26,14 @@
|= =vase
^- (quip card _this)
:: this is super messed up because state-0 wasn't tagged with %0
:: for later updates need to add %2, %3, etc. on -.q.vase
?. &(?=(^ q.vase) =(-.q.vase %1))
=+ !<(old=state-0 vase)
`this(state [%1 old ~])
=+ !<(old=versioned-state vase)
`this(state old)
?- -.old
%1 `this(state old)
==
::
++ on-poke
|= [=mark =vase]