contact-store: restore /~/default contacts
$% state-zero
state-one
state-two
+ state-three
==
::
+$ rolodex-0 (map path contacts-0)
$: %2
=rolodex
==
++$ state-three
+ $: %3
+ =rolodex
+ ==
--
::
-=| state-two
+=| state-three
=* state -
%- agent:dbug
^- agent:gall
=/ old !<(versioned-state old-vase)
=| cards=(list card)
|-
- ?: ?=(%2 -.old)
+ ?: ?=(%3 -.old)
[cards this(state old)]
+ ?: ?=(%2 -.old)
+ %_ $
+ -.old %3
+ ::
+ rolodex.old
+ =/ def
+ (~(get by rolodex.old) /ship/~/default)
+ ?~ def
+ rolodex.old
+ =. rolodex.old
+ (~(del by rolodex.old) /ship/~/default)
+ =. rolodex.old
+ (~(put by rolodex.old) /~/default u.def)
+ rolodex.old
+ ==
?: ?=(%1 -.old)
=/ new-rolodex=^rolodex
%- malt
