claz: interleave transfer proxy & deposit txs
Dumb hack, but very nice for multi-tx batches.
?> =(%king (clan:title s))
(~(put in ss) (^sein:title s))
|-
- ?~ parents txs
+ ?~ parents !! ::txs
=. txs
%+ do-here ecliptic:mainnet-contracts
(set-spawn-proxy:dat i.parents lockup-contract)
=. txs
%+ do-here ecliptic:mainnet-contracts
(set-transfer-proxy:dat i.what lockup-contract)
+ =. txs
+ %+ do-here lockup-contract
+ (deposit:dat to i.what)
$(what t.what)
==
:: depositing
::
|-
?~ what txs
- =. txs
- %+ do-here lockup-contract
- (deposit:dat to i.what)
+ :: =. txs
+ :: %+ do-here lockup-contract
+ :: (deposit:dat to i.what)
$(what t.what)
++ do-here
|= [contract=address dat=tape]
