roller: remove sigwut
ship-quota (~(put by ship-quota) ship next-quota)
==
=^ [gud=? cards-1=(list update)] state
- (try-apply pre force.pend-tx raw-tx.pend-tx)
+ (try-apply pre [force raw-tx]:pend-tx)
?. gud
:_ state
:: %point and (%failed) %tx updates
(emit cards-2) :: %tx updates
::
?. derive ~
- :: defer updating predicted/ownership state from canonical
+ :: defer updating predicted naive/ownership state from canonical
::
[(wait:b:sys /predict (add update-rate now.bowl))]~
==
=^ updates-1 state
(predicted-state canonical-state)
=^ cards state
- ?: =(~ pending)
- ~? lverb [dap.bowl %pending-empty] [~ state]
+ ?: =(~ pending) [~ state]
?~ next-nonce
~? lverb [dap.bowl %missing-roller-nonce] [~ state]
:: this guarantees that next-nonce is only incremented
:_ state(derive ?:(derive | derive))
%+ weld cards
?. derive ~
- :: defer updating predicted/ownership state from canonical
+ :: defer updating predicted naive/ownership state from canonical
::
[(wait:b:sys /predict (add update-rate now.bowl))]~
::
