story: update `|story-remove` to use new types
::
::::
::
+/- *story
:- %say
|= $: [now=@da eny=@uvJ bec=beak]
[[syd=desk =aeon:clay ~] ~]
=/ our p.bec
:: XX should `base` here be syd or q.bec
=/ tak .^(tako:clay %cs /(scot %p our)/base/(scot %ud aeon)/tako/~)
-=/ tale=(map tako:clay [@t @t])
- .^((map tako:clay [@t @t]) %cx /(scot %p our)/[syd]/(scot %da now)/story)
-=. tale (~(del by tale) tak)
+=/ tale=story .^(story %cx /(scot %p our)/[syd]/(scot %da now)/story)
+=. tale (~(del ju tale) tak)
:- %helm-pass
[%c [%info syd %& [/story %ins story+!>(tale)]~]]
\ No newline at end of file
