@@ -11,6 +11,9 @@
1111=>
1212 |%
1313 +$ card card:agent:gall
14+ +$ edition
15+ $% state-0
16+ ==
1417 +$ state-0
1518 $: %0
1619 =lookup:s
@@ -44,21 +47,14 @@
4447 [cards this]
4548 ::
4649 ++ on-save !>(state)
47− ++ on-load
48− |= =vase
49− ^- (quip card _this)
50− =/ old=(unit state-0)
51− (mole |.(!<(state-0 vase)))
52− ?^ old `this(state u.old)
53− ~& >>> "Incompatible load, nuking"
54− =^ cards this on-init
55− :_ this
56− =- (welp - cards)
57− %+ turn ~(tap in ~(key by wex.bowl))
58− |= [=wire =ship =term]
59− ^- card
60− [%pass wire %agent [ship term] %leave ~]
61− ::
50+ ++ on-load
51+ |= =vase
52+ ^- (quip card _this)
53+ =/ old !<(edition vase)
54+ ?- -.old
55+ %0 `this(state old)
56+ ==
57+ ::
6258 ++ on-poke
6359 |= [=mark =vase]
6460 ^- (quip card _this)