get lib/vast2 to bail-meme not explicily error
::
++ apex :: product twig
%+ cook
- |= tum/(each manx marl):twig ^- twig
+ |= tum/(each manx:twig marl:twig) ^- twig
?- -.tum
$& [%xmn p.tum]
$| [%xml p.tum]
==
::
++ wide-top :: wide outer top
- %+ knee *(each manx marl):twig |. ~+
+ %+ knee *(each manx:twig marl:twig) |. ~+
;~ pose
(stag %| wide-quote)
(stag %| wide-paren-elems)
==
::
++ wide-inner-top :: wide inner top
- %+ knee *(each tuna marl):twig |. ~+
+ %+ knee *(each tuna:twig marl:twig) |. ~+
;~ pose
wide-top
(stag %& ;~(plug tuna-mode wide))
::+|
::
++ drop-top
- |= a/(each tuna marl):twig ^- marl:twig
+ |= a/(each tuna:twig marl:twig) ^- marl:twig
?- -.a
$& [p.a]~
$| p.a
==
::
++ join-tops
- |= a/(list (each tuna marl)):twig ^- marl:twig
+ |= a/(list (each tuna:twig marl:twig)) ^- marl:twig
(zing (turn a drop-top))
::
::+|
::+|
::
++ tall-top :: tall top
- %+ knee *(each manx marl):twig |. ~+
+ %+ knee *(each manx:twig marl:twig) |. ~+
;~ pose
(stag %| ;~(pfix (plus ace) (cook collapse-chars quote-innards)))
(stag %& ;~(plug script-or-style script-style-tail))
