Add ~| to arvo to try to debug intermittent crash.
::
++ wink :: deploy
|= {now/@da eny/@ ski/slyd}
- =^ rig worm.vane (~(slym wa worm.vane) vase.vane +<) :: activate vane
+ =^ rig worm.vane
+ ~| [%failed-vane-activation-for lal]
+ (~(slym wa worm.vane) vase.vane +<) :: activate vane
~% %wink +>+> ~
|%
++ slid
++ slur :: call gate on
|= {gat/vase hil/mill}
^- (unit (pair vase worm))
- =^ sam worm.vane (~(slot wa worm.vane) 6 gat)
+ =^ sam worm.vane
+ ~| [%failed-slot-in lal]
+ (~(slot wa worm.vane) 6 gat)
=^ hig worm.vane
+ ~| [%failed-nest-in lal]
?- -.hil
%& (~(nest wa worm.vane) p.sam p.p.hil)
%| (~(nets wa worm.vane) p.sam p.p.hil)
==
?. hig
~
+ ~| [%failed-slym-in lal]
`(~(slym wa worm.vane) gat +>.hil)
::
++ slur-a ~/(%slur-a |=({gat/vase hil/mill} =+(%a (slur gat hil))))
hil/mill
==
^- [(list move) _vane]
+ ~| [%failed-swim lal org pux]
:: ~& [%swim-wyt `@ud`~(wyt in worm.vane)]
=+ ^= pru
?~ pux
|= {lal/@tas vil/vile bud/vase pax/path txt/@ta} ::
=- ?:(?=(%| -.res) ((slog p.res) ~) (some p.res))
^= res %- mule |.
+ ~| [%failed-vint lal]
=+ gen=(rain pax txt)
~& [%vane-parsed `@p`(mug gen)]
=+ pro=(vent lal vil bud [(slym (slap bud gen) bud) *worm])
|- ^- (unit (unit (cask)))
?~ vanes ~
?. =(lal label.i.vanes) $(vanes t.vanes)
+ ~| [%failed-scry ron bed]
%- scry:(wink:(vent lal vil bud vane.i.vanes) now (shax now) ..^$)
[fur ren bed]
::
|= {org/@tas lal/@tas pux/(unit wire) hen/duct hil/mill =vane}
^- [p=(list move) q=_vane]
=+ ven=(vent lal vil bud vane)
+ ~| [%failed-take lal]
=+ win=(wink:ven now (shax now) beck)
(swim:win org pux hen hil)
::
++ kick :: new main loop
|= {lac/? mor/(list muse)}
=| ova/(list ovum)
+ ~| [%failed-kick lac]
|- ^- {p/(list ovum) q=(list [label=@tas =vane])}
?~ mor [(flop ova) vanes]
=^ nyx vanes (jack lac i.mor)
~& [%vane `@tas`lal.fav pax.fav `@p`(mug txt.fav)]
:_ t.vanes
:- label.i.vanes
+ ~| [%failed-vane-activation now lal.fav]
vane:(ruck:(vent lal.fav vil bud [vase.vane.i.vanes *worm]) pax.fav txt.fav)
==
::
