pull-hook: fix swapped argument preventing cards being sent
::
++ tr-emis
|= caz=(list card)
- tr-core(cards (welp (flop cards) cards))
+ tr-core(cards (welp (flop caz) cards))
::
++ tr-ap-og
|= ap=_^?(|.(*(quip card _pull-hook)))
