mirror of
https://github.com/tadad/blog.git
synced 2024-09-11 12:55:07 +03:00
+on-load fixed
This commit is contained in:
parent
a6a64a56b0
commit
1dae329400
@ -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]
|
||||
|
Loading…
Reference in New Issue
Block a user