refactors effect iteration in arvo +poke
^- [(list ovum) *]
=> .(+< ((hard ,[now=@da ovo=ovum]) +<))
=^ ova +>+.$ (^poke now ovo)
+ =| out=(list ovum)
|- ^- [(list ovum) *]
?~ ova
- [~ +>.^$]
+ [(flop out) +>.^$]
:: upgrade the kernel -- %vega here is an effect from a vane
::
?: ?=(%vega -.q.i.ova)
:: and passing the rest through as output
::
=^ vov +>+.^$ (feck now i.ova)
- ?~ vov
+ =? out ?=(^ vov) [+.vov out]
$(ova t.ova)
- =/ avo $(ova t.ova)
- [[+.vov -.avo] +.avo]
::
++ wish |=(* (^wish ((hard @ta) +<))) :: 22
--
